[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]

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