[PD-cvs] pd/src desire.tk,1.1.2.600.2.281,1.1.2.600.2.282
chunlee
chunlee at users.sourceforge.net
Sat Aug 4 20:48:51 CEST 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]
}
More information about the Pd-cvs
mailing list