[PD-cvs] pd/src desire.tk, 1.1.2.600.2.70, 1.1.2.600.2.71 desire.c, 1.1.2.217.2.64, 1.1.2.217.2.65
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 13 07:33:37 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8728
Modified Files:
Tag: desiredata
desire.tk desire.c
Log Message:
proc change has a new argument for canvas
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.70
retrieving revision 1.1.2.600.2.71
diff -C2 -d -r1.1.2.600.2.70 -r1.1.2.600.2.71
*** desire.tk 13 Dec 2006 02:36:55 -0000 1.1.2.600.2.70
--- desire.tk 13 Dec 2006 06:33:31 -0000 1.1.2.600.2.71
***************
*** 4386,4393 ****
#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}
$self ninlets= $ninlets
$self noutlets= $noutlets
--- 4386,4394 ----
#set paste(count2) 0
! proc change {self canvas 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}
+ $self canvas= $canvas
$self ninlets= $ninlets
$self noutlets= $noutlets
Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.64
retrieving revision 1.1.2.217.2.65
diff -C2 -d -r1.1.2.217.2.64 -r1.1.2.217.2.65
*** desire.c 13 Dec 2006 05:58:30 -0000 1.1.2.217.2.64
--- desire.c 13 Dec 2006 06:33:33 -0000 1.1.2.217.2.65
***************
*** 6531,6538 ****
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);
--- 6531,6538 ----
if (s[n-1]=='\n') n--;
if (c->c_patchable) {
! sys_vgui("change x%lx x%lx {%.*s} %d %d\n",(long)self,(long)self->dix->canvas,n,s,
obj_ninlets((t_text *)self), obj_noutlets((t_text *)self));
} else {
! sys_vgui("change x%lx x%lx {%.*s}\n",(long)self,(long)self->dix->canvas,n,s);
}
binbuf_free(b);
More information about the Pd-cvs
mailing list