[PD-cvs] packages/patches number_bug_list_bug-0.39.2.patch, NONE, 1.1 TODO, 1.1, 1.2

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31939

Modified Files:
	TODO 
Added Files:
	number_bug_list_bug-0.39.2.patch 
Log Message:
added patch that's already been accepted into 0.40

--- NEW FILE: number_bug_list_bug-0.39.2.patch ---
Index: g_text.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_text.c,v
retrieving revision 1.11
diff -u -w -r1.11 g_text.c
--- g_text.c	15 Sep 2005 03:17:27 -0000	1.11
+++ g_text.c	14 Jun 2006 14:56:36 -0000
@@ -566,6 +566,19 @@
     gatom_bang(x);
 }
 
+    /* We need a list method because, since there's both an "inlet" and a
+    "nofirstin" flag, the standard list behavior gets confused. */
+static void gatom_list(t_gatom *x, t_symbol *s, int argc, t_atom *argv)
+{
+    if (!argc)
+        gatom_bang(x);
+    else if (argv->a_type == A_FLOAT)
+        gatom_float(x, argv->a_w.w_float);
+    else if (argv->a_type == A_SYMBOL)
+        gatom_symbol(x, argv->a_w.w_symbol);
+    else pd_error(x, "gatom_list: need float or symbol");
+}
+
 static void gatom_motion(void *z, t_floatarg dx, t_floatarg dy)
 {
     t_gatom *x = (t_gatom *)z;
@@ -1349,6 +1362,7 @@
     class_addbang(gatom_class, gatom_bang);
     class_addfloat(gatom_class, gatom_float);
     class_addsymbol(gatom_class, gatom_symbol);
+    class_addlist(gatom_class, gatom_list);
     class_addmethod(gatom_class, (t_method)gatom_set, gensym("set"),
         A_GIMME, 0);
     class_addmethod(gatom_class, (t_method)gatom_click, gensym("click"),

Index: TODO
===================================================================
RCS file: /cvsroot/pure-data/packages/patches/TODO,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TODO	27 Feb 2006 05:19:27 -0000	1.1
--- TODO	14 Jun 2006 14:59:49 -0000	1.2
***************
*** 1,3 ****
  
! - port packages/patches/libdir-0.38.4.patch to 0.39.2
  
--- 1,12 ----
  
! - check out Mac/Intel patches
! 
! 
! ----------------------
! Patches accepted into 0.40
! ----------------------
! 
! - number_bug_list_bug-0.39.2.patch
! - help_browser-0.39.2.patch
! - mingw_fixes-0.39-2.patch