Lines Matching refs:fontsdir
204 while {[winfo exists .fontsdir${random}]} {
219 toplevel .fontsdir${random}
220 listbox .fontsdir${random}.lst -width 90 -setgrid 1 \
221 -yscrollcommand ".fontsdir${random}.scrl set"
222 scrollbar .fontsdir${random}.scrl \
223 -command ".fontsdir${random}.lst yview"
228 .fontsdir${random}.lst insert end $onefontname
231 .fontsdir${random}.lst delete 0
232 .fontsdir${random}.lst delete end
233 pack .fontsdir${random}.scrl -in .fontsdir${random} \
235 pack .fontsdir${random}.lst -in .fontsdir${random} \
239 wm title .fontsdir${random} [selection get]/fonts.alias
241 wm title .fontsdir${random} [selection get]/fonts.dir