diff options
Diffstat (limited to 'list_change.tcl')
-rw-r--r-- | list_change.tcl | 29 |
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 } + } |