[PD-cvs] pd/src desire.tk,1.1.2.414,1.1.2.415

[chunlee]

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