[PD-cvs] pd/src desire.c, 1.1.2.70, 1.1.2.71 desire.tk, 1.1.2.177, 1.1.2.178

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.c desire.tk 
Log Message:
.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.177
retrieving revision 1.1.2.178
diff -C2 -d -r1.1.2.177 -r1.1.2.178
*** desire.tk	22 Apr 2006 03:28:26 -0000	1.1.2.177
--- desire.tk	22 Apr 2006 03:41:13 -0000	1.1.2.178
***************
*** 416,420 ****
  		}
  		if {[fblocked $sock]} {break}
! 		puts "-> $cmd"
  		if {[catch {eval $sock_lobby$cmd}]} {
  			global errorCode errorInfo
--- 416,420 ----
  		}
  		if {[fblocked $sock]} {break}
! 		if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}
  		if {[catch {eval $sock_lobby$cmd}]} {
  			global errorCode errorInfo
***************
*** 1476,1481 ****
  
  def* Canvas wires= {wires2} {
! 	puts "-----------------------------------------wires!!"
! 	global _ 
  	set wires {}
  	# look up for wire id
--- 1476,1480 ----
  
  def* Canvas wires= {wires2} {
! 	global _
  	set wires {}
  	# look up for wire id
***************
*** 1486,1500 ****
  	   }
  	}
! 	
! 	set born [lwithout $wires $@wires];foreach x $born {$x subscribe $self;$x changed;$x canvas= $self}
! 	puts "===== born:$born children:$@children"
! 	
! 	
  	set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase}
- 	puts "===== dead:$dead"
  	set @wires $wires
- 	puts "===== [concat [list $self]]"
- 	
- 	puts "===== self:$self wires:$wires"
  	$self changed
  	
--- 1485,1491 ----
  	   }
  	}
! 	set born [lwithout $wires $@wires]; foreach x $born {$x subscribe $self;$x changed;$x canvas= $self}
  	set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase}
  	set @wires $wires
  	$self changed
  	
***************
*** 2040,2044 ****
  class_new Box {View}
  
! def* Box init {args} {
      super
      set @wires {}
--- 2031,2035 ----
  class_new Box {View}
  
! def Box init {args} {
      super
      set @wires {}
***************
*** 3613,3625 ****
    void -listdev "list audio and MIDI devices upon startup"
    void -rt|-realtime "use real-time priority (needs root privilege)"
- 
- section look "Look"
-   files -open "open file(s) on startup"
-   void -verbose "extra printout on startup and when searching for files"
-   integer -d "debug level"
-   void -noloadbang "disable the effect of [loadbang]"
-   string -send "send a message at startup (after patches are loaded)"
-   void -listdev "list audio and MIDI devices upon startup"
-   void -rt|-realtime "use real-time priority (needs root privilege)"
  }
  
--- 3604,3607 ----

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.70
retrieving revision 1.1.2.71
diff -C2 -d -r1.1.2.70 -r1.1.2.71
*** desire.c	22 Apr 2006 03:17:29 -0000	1.1.2.70
--- desire.c	22 Apr 2006 03:41:13 -0000	1.1.2.71
***************
*** 109,113 ****
  		t_gobj *obs = d->obs[i];
  		t_notice ice = obs->g_pd->c_notice;
! 		fprintf(stderr,"obs=%lx\n",(long)obs);
  		if (ice) ice(obs,origin,argc,argv);
  		else post("null func ptr for class %s",self->g_pd->c_name->s_name);
--- 109,113 ----
  		t_gobj *obs = d->obs[i];
  		t_notice ice = obs->g_pd->c_notice;
! 		//fprintf(stderr,"obs=%lx\n",(long)obs);
  		if (ice) ice(obs,origin,argc,argv);
  		else post("null func ptr for class %s",self->g_pd->c_name->s_name);
***************
*** 5261,5265 ****
      char *buf; int bufn;
      binbuf_gettext(((t_text *)y)->te_binbuf,&buf,&bufn);
!     fprintf(stderr,"glist_add %p %p [%s]\n",x,y,buf);
      free(buf);
      if (!y->g_adix) y->g_adix = appendix_new(y); /* mb: i found no better place for initing this */
--- 5261,5265 ----
      char *buf; int bufn;
      binbuf_gettext(((t_text *)y)->te_binbuf,&buf,&bufn);
!     fprintf(stderr,"glist_add %p %p [%.*s]\n",x,y,bufn,buf);
      free(buf);
      if (!y->g_adix) y->g_adix = appendix_new(y); /* mb: i found no better place for initing this */