[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