[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