[PD-cvs] pd/src desire.tk,1.1.2.600.2.49,1.1.2.600.2.50
chunlee
chunlee at users.sourceforge.net
Sat Dec 9 16:29:19 CET 2006
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 ?
More information about the Pd-cvs
mailing list