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 */