From 4929fe6cdfb6e1c37173de7e2b28254d56b03c11 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 31 Jul 2006 00:51:36 +0000
Subject: added cold inlet to set array name

svn path=/trunk/externals/arraysize/; revision=5435
---
 arraysize-help.pd | 32 +++++++++++++++++++-------------
 arraysize.c       |  3 ++-
 2 files changed, 21 insertions(+), 14 deletions(-)

diff --git a/arraysize-help.pd b/arraysize-help.pd
index 6bc16b1..f3a2e9d 100644
--- a/arraysize-help.pd
+++ b/arraysize-help.pd
@@ -1,21 +1,27 @@
-#N canvas 359 162 460 292 10;
+#N canvas 359 162 464 296 10;
 #N canvas 0 22 450 300 graph1 0;
 #X array test 100 float 0;
 #X coords 0 1 99 -1 200 140 1;
-#X restore 197 38 graph;
-#X obj 22 49 arraysize test;
-#X floatatom 22 73 5 0 0 0 - - -;
-#X msg 22 26 bang;
-#X text 24 205 arraysize returns the size of an array when banged.
-;
-#X floatatom 22 173 5 0 0 0 - - -;
-#X msg 22 122 bang;
-#X obj 22 149 arraysize;
-#X msg 65 122 set test;
-#X obj 228 244 pddp_open all_about_arrays;
-#X text 124 243 For more info:;
+#X restore 193 76 graph;
+#X obj 22 54 arraysize test;
+#X floatatom 22 78 5 0 0 0 - - -;
+#X msg 22 31 bang;
+#X text 24 5 arraysize returns the size of an array when banged.;
+#X floatatom 22 163 5 0 0 0 - - -;
+#X msg 22 112 bang;
+#X obj 22 139 arraysize;
+#X msg 65 112 set test;
+#X obj 228 264 pddp_open all_about_arrays;
+#X text 124 263 For more info:;
+#X floatatom 22 245 5 0 0 0 - - -;
+#X msg 22 194 bang;
+#X obj 22 221 arraysize;
+#X msg 80 197 symbol test;
 #X connect 1 0 2 0;
 #X connect 3 0 1 0;
 #X connect 6 0 7 0;
 #X connect 7 0 5 0;
 #X connect 8 0 7 0;
+#X connect 12 0 13 0;
+#X connect 13 0 11 0;
+#X connect 14 0 13 1;
diff --git a/arraysize.c b/arraysize.c
index 8baf147..4b66531 100644
--- a/arraysize.c
+++ b/arraysize.c
@@ -41,6 +41,7 @@ void *arraysize_new(t_symbol *s)
 {
   t_arraysize *x = (t_arraysize *)pd_new(arraysize_class);
 
+  symbolinlet_new(&x->x_obj, &x->array_name);
   outlet_new(&x->x_obj, gensym("float"));
 
   x->array_name = s;
@@ -52,6 +53,6 @@ void arraysize_setup(void)
 {
   arraysize_class = class_new(gensym("arraysize"), (t_newmethod)arraysize_new, 0, sizeof(t_arraysize), CLASS_DEFAULT, A_DEFSYMBOL, 0);
   
-  class_addmethod(arraysize_class,(t_method)arraysize_set,gensym("set"), A_DEFSYM, 0);
+  class_addmethod(arraysize_class,(t_method)arraysize_set,gensym("set"), A_DEFSYMBOL, 0);
   class_addbang(arraysize_class,arraysize_bang);
 }
-- 
cgit v1.2.1