#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

#- vifonts --
#-	Print out a string of all characters in every
#-	font listed by xlsfonts in a scrolling text box.
#-
# Copyright (c) 2008 Gordon D. Carrie
# All rights reserved
#
# $Revision: 1.4 $ $Date: 2009/09/25 21:33:12 $
#
# Control-q exits.

frame .f
scrollbar .f.scroll -command ".f.txt yview"
text .f.txt -width 132 -height 44 -yscrollcommand ".f.scroll set" -wrap none
pack .f.txt -side left -expand true -fill both
pack .f.scroll -side right -fill y
pack .f -expand true -fill both
update

set txt "0123456789 ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0O 1lI
0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
"
set in [open "|xlsfonts"]
while {[gets $in fn] >= 0} {
    .f.txt insert end "$fn
$txt
" $fn
    .f.txt tag configure $fn -font $fn
    update
}
close $in
.f.txt configure -state disabled
bind . <Control-q> {exit}
puts [format {%c} 0x07]