pd/src desire.tk,1.1.2.600.2.281,1.1.2.600.2.282 - Pd-cvs

4 Aug 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23187
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
small fix to Dialog add_font
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.281
retrieving revision 1.1.2.600.2.282
diff -C2 -d -r1.1.2.600.2.281 -r1.1.2.600.2.282
*** desire.tk	4 Aug 2007 16:45:20 -0000	1.1.2.600.2.281
--- desire.tk	4 Aug 2007 18:48:47 -0000	1.1.2.600.2.282
***************
*** 7197,7201 ****
    $self add_stuff $f $name $label
    set v $@$name
! 	label $f.font -text "DesireData" -font [lreplace $v 1 1 -12] -width 13 -height 1 -pady 3 -fg black \
        -relief sunken -bg white
    button $f.preset -text [say "edit"] -pady 2 -font {Helvetica 8} \
--- 7197,7201 ----
    $self add_stuff $f $name $label
    set v $@$name
! 	label $f.font -text $v -font [lreplace $v 1 1 -10] -width [string length $v] -height 1 -pady 3 -fg black \
        -relief sunken -bg white
    button $f.preset -text [say "edit"] -pady 2 -font {Helvetica 8} \
***************
*** 7302,7306 ****
  def FontDialog apply {} {
    set ::look($@class:font) $@str
! 	$@orig configure -font [lreplace $@str 1 1 -12]
  }
--- 7302,7306 ----
  def FontDialog apply {} {
    set ::look($@class:font) $@str
! 	$@orig configure -font [lreplace $@str 1 1 -10] -text $@str -width [string length $@str]
  }