add of proxyinlet

svn path=/trunk/externals/tclpd/; revision=12145

1 files changed, 17 insertions, 12 deletions

diff --git a/list_change.tcl b/list_change.tcl
index 13d2875..de2cfee 100644
--- a/list_change.tcl
+++ b/list_change.tcl
@@ -1,28 +1,33 @@
 source pdlib.tcl
 
 pd::class list_change {
-    # first 'hot' inlet is created by default
-
-    # add 'cold' inlet:
-    inlet list
-
-    outlet list
 
     constructor {
-        #pd::add_inlet $self float
+        # add second inlet (first created by default)
+        pd::add_inlet $self list
+
+        # add outlet
+        pd::add_outlet $self list
 
         set @curlist {}
     }
 
     0_list {
-        if {$args != $@curlist} {
-            set @curlist $args
-            pd::outlet $self 0 list $@curlist
+        puts stderr "**** called [info level 0]"
+        puts stderr ">> inlet 0 is [pd::inlet $self 0]"
+        puts stderr ">> inlet 1 is [pd::inlet $self 1]"
+        #if {$args != $@curlist} {
+        #    set @curlist $args
+        #    pd::outlet $self 0 list $@curlist
             #0_bang
-        }
+        #}
     }
 
     0_bang {
-        pd::outlet $self 0 list $@curlist
+        puts stderr "**** called [info level 0]"
+        puts stderr ">> inlet 0 is [pd::inlet $self 0]"
+        puts stderr ">> inlet 1 is [pd::inlet $self 1]"
+        #pd::outlet $self 0 list $@curlist
     }
+
 }