[PD-cvs] pd/src desire.c, 1.1.2.217.2.57, 1.1.2.217.2.58 desire.tk, 1.1.2.600.2.69, 1.1.2.600.2.70

Mathieu Bouchard matju at users.sourceforge.net
Wed Dec 13 03:36:59 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21315

Modified Files:
      Tag: desiredata
	desire.c desire.tk 
Log Message:
proc update_object renamed to just proc change


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.69
retrieving revision 1.1.2.600.2.70
diff -C2 -d -r1.1.2.600.2.69 -r1.1.2.600.2.70
*** desire.tk	13 Dec 2006 00:29:40 -0000	1.1.2.600.2.69
--- desire.tk	13 Dec 2006 02:36:55 -0000	1.1.2.600.2.70
***************
*** 1282,1286 ****
  def Canvas close {} {
  	if {$@subpatch} {
! 		#can't wait till @mapped get updated till the update_object
  		if {$@gop} {foreach x $@children {$x outside_of_the_box}}
  		#set @mapped 0
--- 1282,1286 ----
  def Canvas close {} {
  	if {$@subpatch} {
! 		#can't wait till @mapped get updated till proc change
  		if {$@gop} {foreach x $@children {$x outside_of_the_box}}
  		#set @mapped 0
***************
*** 4386,4391 ****
  #set paste(count2) 0
  
! proc update_object {self e {ninlets 0} {noutlets 0}} {
! 	foreach mess [pd_mess_split $e] {update_object_2 $self $mess}
  	#the server ought to take care of this:
  	#if {[lindex $e 1] == "array"} {set ninlets 0; set noutlets 0}
--- 4386,4391 ----
  #set paste(count2) 0
  
! proc change {self e {ninlets 0} {noutlets 0}} {
! 	foreach mess [pd_mess_split $e] {change_2 $self $mess}
  	#the server ought to take care of this:
  	#if {[lindex $e 1] == "array"} {set ninlets 0; set noutlets 0}
***************
*** 4395,4399 ****
  }
  
! proc update_object_2 {self mess} {
  	global _ classinfo
  	set mess [split $mess]
--- 4395,4399 ----
  }
  
! proc change_2 {self mess} {
  	global _ classinfo
  	set mess [split $mess]

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.57
retrieving revision 1.1.2.217.2.58
diff -C2 -d -r1.1.2.217.2.57 -r1.1.2.217.2.58
*** desire.c	13 Dec 2006 01:32:58 -0000	1.1.2.217.2.57
--- desire.c	13 Dec 2006 02:36:53 -0000	1.1.2.217.2.58
***************
*** 1374,1378 ****
      for (i=ito,   gto  =x->list; i>0; gto  =gto  ->g_next, i--) if (!gto  ->g_next) goto bad;
      from = pd_checkobject(gfrom);
!     to = pd_checkobject(  gto);
      if (!from || !to) goto bad;
      /* if object creation failed, make dummy inlets or outlets as needed */
--- 1374,1378 ----
      for (i=ito,   gto  =x->list; i>0; gto  =gto  ->g_next, i--) if (!gto  ->g_next) goto bad;
      from = pd_checkobject(gfrom);
!     to   = pd_checkobject(  gto);
      if (!from || !to) goto bad;
      /* if object creation failed, make dummy inlets or outlets as needed */
***************
*** 6656,6664 ****
  	if (s[n-1]=='\n') n--;
  	if (c->c_patchable) {
! 		sys_vgui("update_object x%lx {%.*s} %d %d\n",(long)self,n,s,
! 			obj_ninlets((t_text *)self),
! 			obj_noutlets((t_text *)self));
  	} else {
! 		sys_vgui("update_object x%lx {%.*s}\n",(long)self,n,s);
  	}
  	binbuf_free(b);
--- 6656,6663 ----
  	if (s[n-1]=='\n') n--;
  	if (c->c_patchable) {
! 		sys_vgui("change x%lx {%.*s} %d %d\n",(long)self,n,s,
! 			obj_ninlets((t_text *)self), obj_noutlets((t_text *)self));
  	} else {
! 		sys_vgui("change x%lx {%.*s}\n",(long)self,n,s);
  	}
  	binbuf_free(b);





More information about the Pd-cvs mailing list