[PD-cvs] pd/src desire.tk,1.1.2.270,1.1.2.271
chunlee
chunlee at users.sourceforge.net
Sun Jul 2 19:07:32 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27377
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
update_object now supports the #V line
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.270
retrieving revision 1.1.2.271
diff -C2 -d -r1.1.2.270 -r1.1.2.271
*** desire.tk 1 Jul 2006 06:29:11 -0000 1.1.2.270
--- desire.tk 2 Jul 2006 17:07:28 -0000 1.1.2.271
***************
*** 2747,2754 ****
set canvas(current) ""
! proc update_object {x d ninlets noutlets} {
global _ fields classinfo canvas clipboard
! set d [string trimright $d "\n"]
! set d [string trimright $d ";"]
set i 1
set class [lindex $d $i]
--- 2747,2763 ----
set canvas(current) ""
! proc update_object {x e ninlets noutlets} {
global _ fields classinfo canvas clipboard
! set findV [string first "#V" $e]
! set v ""
! set d ""
! if {$findV >= 0} {
! set d [string range $e 0 [expr $findV - 2]]
! set v [string range $e $findV end-1]
! set _($x:V) $v
! } else {
! set d [string trimright $e "\n"]
! set d [string trimright $e ";"]
! }
set i 1
set class [lindex $d $i]
More information about the Pd-cvs
mailing list