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]