[PD-cvs] pd/src desire.c, 1.1.2.217.2.194, 1.1.2.217.2.195 desire.tk, 1.1.2.600.2.322, 1.1.2.600.2.323

Mathieu Bouchard matju at users.sourceforge.net
Thu Aug 9 00:36:14 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.c desire.tk 
Log Message:
remove wire_reinit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.322
retrieving revision 1.1.2.600.2.323
diff -C2 -d -r1.1.2.600.2.322 -r1.1.2.600.2.323
*** desire.tk	8 Aug 2007 21:43:51 -0000	1.1.2.600.2.322
--- desire.tk	8 Aug 2007 22:36:10 -0000	1.1.2.600.2.323
***************
*** 2838,2847 ****
  }
  
- # should be only called from the server
- def Canvas wires_reinit {wires} {
- 	eval [concat [list $@wires reinit] $wires]
- 	$self changed wires
- }
- 
  def Canvas wires {} {return $@wires}
  
--- 2838,2841 ----
***************
*** 5033,5036 ****
--- 5027,5035 ----
  }
  
+ def Wire index= {i} {
+ 	super $i
+ 	[$@canvas wires] set $i $self
+ }
+ 
  def Wire init {mess} {
  	super

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.194
retrieving revision 1.1.2.217.2.195
diff -C2 -d -r1.1.2.217.2.194 -r1.1.2.217.2.195
*** desire.c	7 Aug 2007 21:03:38 -0000	1.1.2.217.2.194
--- desire.c	8 Aug 2007 22:36:07 -0000	1.1.2.217.2.195
***************
*** 1085,1089 ****
          }
      }
-     gobj_changed(x,"wires");
  }
  
--- 1085,1088 ----
***************
*** 1257,1261 ****
      if (is_dummy(from)) while (outlet >= obj_noutlets(from)) outlet_new(from, &s_);
      if (is_dummy(to))   while ( inlet >= obj_ninlets(to)) inlet_new(to,to,&s_,&s_);
-     gobj_changed(x,"wires");
      if (!(oc = obj_connect(from,outlet,to,inlet))) goto bad;
      pd_set_newest(oc);
--- 1256,1259 ----
***************
*** 6015,6021 ****
  		canvas_each(y,can) bar+=sprintf(bar,"%ld x%lx ",y->dix->index,(long)y);
  		sys_mgui(self,"objects_reinit","S",foo);
- 		bar=foo; *foo=0;
- 		canvas_wires_each(oc,t,can) bar+=sprintf(bar,"%ld x%lx ",oc->dix->index,(long)oc);
- 		sys_mgui(self,"wires_reinit","S",foo);
  		sys_mgui(self,"name=","s",can->name);
  		sys_mgui(self,"folder=","s",canvas_getenv(can)->dir);
--- 6013,6016 ----





More information about the Pd-cvs mailing list