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);