Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16529
Modified Files: Tag: desiredata desire.tk Log Message: fix {$1} in msg and comment
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.49 retrieving revision 1.1.2.600.2.50 diff -C2 -d -r1.1.2.600.2.49 -r1.1.2.600.2.50 *** desire.tk 9 Dec 2006 03:04:08 -0000 1.1.2.600.2.49 --- desire.tk 9 Dec 2006 15:29:14 -0000 1.1.2.600.2.50 *************** *** 1521,1525 **** return } ! if {![winfo exists .$self.c]} {$self init_window} } } --- 1521,1525 ---- return } ! if {![winfo exists .$self.c]} {$self init_window} } } *************** *** 1537,1540 **** --- 1537,1542 ---- 11 { set @gop [lindex $mess 8] + #set @gop [expr [lindex $mess 8] & 1] + #set @hidetext [expr [lindex $mess 8] & 2] set @goprect 1 set @xmargin [lindex $mess 9] *************** *** 1573,1576 **** --- 1575,1579 ----
def Canvas gop {} {return $@gop} + def Canvas hidtext {} {return $@hidetext} def Canvas abs {} {return $@abs} def Canvas subpatch {} {return $@subpatch} *************** *** 1965,1972 **** set @y1 [lindex $mess 3] set @text [lrange $mess 4 end] set c [lindex $mess 4] if {$c != ""} { # what's this hack? ! regsub -all {\} [string range $mess [string first $c $mess 0] end] "" text } else { set text "" --- 1968,1977 ---- set @y1 [lindex $mess 3] set @text [lrange $mess 4 end] + set textstr [join [lrange $mess 4 end]] set c [lindex $mess 4] if {$c != ""} { # what's this hack? ! # this hack is to remove the "" in the text ! regsub -all {\} $textstr "" text } else { set text "" *************** *** 7100,7104 **** } } ! def ClientPrefsDialog reset {} { # this should reload defaults.ddrc ? --- 7105,7109 ---- } } ! def ClientPrefsDialog reset {} { # this should reload defaults.ddrc ?