Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30944
Modified Files: Tag: devel_0_39 desire.tk Log Message: small fix to font editor's listbox
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.414 retrieving revision 1.1.2.415 diff -C2 -d -r1.1.2.414 -r1.1.2.415 *** desire.tk 28 Aug 2006 15:18:36 -0000 1.1.2.414 --- desire.tk 28 Aug 2006 15:48:27 -0000 1.1.2.415 *************** *** 5147,5154 ****
def* Dialog add_fontbomb {f args} { ! if {[winfo exists $f.font]} {return} ! set no_max_label 0 ! bind all <KeyPress-F1> help ! set @size [$self look fontsize] set @font [$self look fontfamily] set @style [$self look fontstyle] --- 5147,5155 ----
def* Dialog add_fontbomb {f args} { ! global look ! if {[winfo exists $f.font]} {return} ! set no_max_label 0 ! bind all <KeyPress-F1> help ! set @size [$self look fontsize] set @font [$self look fontfamily] set @style [$self look fontstyle] *************** *** 5167,5170 **** --- 5168,5176 ---- foreach name [font families] { $f.font.list.box insert end $name} + set fontlist [$f.font.list.box get 0 end] + set find [lsearch $fontlist [$self look fontfamily]] + if {$find < 0} {set find 0} + $f.font.list.box selection set $find $find + $f.font.list.box see $find bind $f.font.list.box <ButtonRelease-1> "$self font_update $f" *************** *** 5196,5201 **** pack $f.font.list -side left -fill y ! pack $f.font.size -side top -fill x -padx $padx2 -pady $pady2 ! pack $f.font.style -side top -fill x -padx $padx2 -pady $pady2 pack $f.font2.preview -side bottom -fill x pack $f.font -side top -fill both -padx $padx -pady $pady --- 5202,5207 ---- pack $f.font.list -side left -fill y ! pack $f.font.size -side top -fill x ! pack $f.font.style -side top -fill x pack $f.font2.preview -side bottom -fill x pack $f.font -side top -fill both -padx $padx -pady $pady