[PD-cvs] pd/src desire.c,1.1.2.217.2.123,1.1.2.217.2.124

Mathieu Bouchard matju at users.sourceforge.net
Thu Jan 11 20:01:02 CET 2007


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





More information about the Pd-cvs mailing list