[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