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" }