[PD-cvs] pd/src desire.tk, 1.1.2.171, 1.1.2.172 m_class.c, 1.3.4.7.2.14, 1.3.4.7.2.15

Mathieu Bouchard matju at users.sourceforge.net
Fri Apr 21 11:03:22 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk m_class.c 
Log Message:
class browser


Index: m_class.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/m_class.c,v
retrieving revision 1.3.4.7.2.14
retrieving revision 1.3.4.7.2.15
diff -C2 -d -r1.3.4.7.2.14 -r1.3.4.7.2.15
*** m_class.c	21 Apr 2006 08:46:14 -0000	1.3.4.7.2.14
--- m_class.c	21 Apr 2006 09:03:20 -0000	1.3.4.7.2.15
***************
*** 27,30 ****
--- 27,39 ----
  #endif
  
+ #ifdef DESIRE
+ typedef struct t_class_list {
+         t_class *head;
+         struct t_class_list *tail;
+ } t_class_list;
+ static t_class_list *class_list = 0;
+ #endif
+ 
+ 
  static t_symbol *class_loadsym;     /* name under which an extern is invoked */
  static void pd_defaultfloat(t_pd *x, t_float f);
***************
*** 257,261 ****
      }
  #endif
!  
     return (c);
  }
--- 266,278 ----
      }
  #endif
! 
! #ifdef DESIRE
!     {
!         t_class_list *tc = (t_class_list *) malloc(sizeof(t_class_list));
!         tc->head = c;
!         tc->tail = class_list;
!         class_list=tc;
!     }
! #endif
     return (c);
  }
***************
*** 1005,1015 ****
  }
  
- typedef struct t_class_list {
-         t_class *head;
-         struct t_class_list *tail;
- } t_class_list;
- 
- static t_class_list *class_list = 0;
- 
  /* O(n) asymptotic time :-} */
  /* only looks for already loaded classes though. */
--- 1022,1025 ----

Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.171
retrieving revision 1.1.2.172
diff -C2 -d -r1.1.2.171 -r1.1.2.172
*** desire.tk	21 Apr 2006 08:49:35 -0000	1.1.2.171
--- desire.tk	21 Apr 2006 09:03:20 -0000	1.1.2.172
***************
*** 3262,3271 ****
  	bind $f.1 <Button-1> {
  		after 1 {
  			set i [$f.1 curselection]
  			set class [$f.1 get $i]
! 			pd pd update-class-info $class
  		}
  	}
! 	bind $b.2 <KeyPress> {after 1 "$self fill_box [.browser.butt.2 get]"}
  	after 1 "focus $b.2"
  }
--- 3262,3274 ----
  	bind $f.1 <Button-1> {
  		after 1 {
+ 			set self browser
+ 			set f .$self.cl
  			set i [$f.1 curselection]
  			set class [$f.1 get $i]
! 			pd pd update-class-info $class $self info_callback
  		}
  	}
! 	#bind $b.2 <KeyPress> {after 1 "  $self fill_box [.browser.butt.2 get]"}
! 	bind $b.2 <KeyPress> {after 1 "browser fill_box \[.browser.butt.2 get\]"}
  	after 1 "focus $b.2"
  }





More information about the Pd-cvs mailing list