Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4282
Modified Files: Tag: desiredata desire.c Log Message: pd object_list hides [inlet] and [__list] and shows contents of textboxes
Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.123 retrieving revision 1.1.2.217.2.124 diff -C2 -d -r1.1.2.217.2.123 -r1.1.2.217.2.124 *** desire.c 11 Jan 2007 18:40:14 -0000 1.1.2.217.2.123 --- desire.c 11 Jan 2007 19:00:57 -0000 1.1.2.217.2.124 *************** *** 160,163 **** --- 160,164 ----
void gobj_setcanvas (t_gobj *self, t_canvas *c) { + if (self->dix->canvas == c) return; if (self->dix->canvas) gobj_unsubscribe(self,self->dix->canvas); self->dix->canvas = c; *************** *** 7670,7680 **** extern t_hash *object_table;
! void glob_object_table(void) { hashkey k; hashvalue v; post("object_table = {"); hash_foreach(k,v,object_table) { ! post(" %p %ld %s",k,(long)v,((t_pd *)k)->_class->name->name); } ! post("} (%d objects)",hash_size(object_table)); }
--- 7671,7698 ---- extern t_hash *object_table;
! static void glob_object_table(void) { ! t_symbol *s_inlet = gensym("inlet"); ! t_symbol *s___list = gensym("__list"); ! int inlets=0, lists=0; hashkey k; hashvalue v; post("object_table = {"); hash_foreach(k,v,object_table) { ! t_pd *x = (t_pd *)k; ! //post(" %p %ld %s",k,(long)v,x->_class->name->name); ! if (x->_class->name == s_inlet) {inlets++; continue;} ! if (x->_class->name == s___list) {lists++; continue;} ! if (x->_class->patchable) { ! t_binbuf *b = ((t_text *)x)->binbuf; ! if (b) { ! char *buf; int bufn; ! binbuf_gettext(b,&buf,&bufn); ! post(" %p %ld %s [%.*s]",k,(long)v,x->_class->name->name,bufn,buf); ! continue; ! } ! } ! post(" %p %ld %s",k,(long)v,x->_class->name->name); } ! post("} (%d non-omitted objects, plus %d [inlet], plus %d [__list])", ! hash_size(object_table)-inlets-lists,inlets,lists); }