diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2009-08-31 01:13:12 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-08-31 01:13:12 +0000 |
commit | aa048d93e8fdae5b8152b3c963da02b3cd244274 (patch) | |
tree | 332e1a82d66b6b12ba93b53e86017f907afab563 /list_change.tcl | |
parent | d076e9fe58703eefb5f6ac1ba1366b09e273a113 (diff) |
proxyinlet support working and generally everything working fine (in the list_change use case)
svn path=/trunk/externals/tclpd/; revision=12153
Diffstat (limited to 'list_change.tcl')
-rw-r--r-- | list_change.tcl | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/list_change.tcl b/list_change.tcl index de2cfee..de13a20 100644 --- a/list_change.tcl +++ b/list_change.tcl @@ -13,21 +13,19 @@ pd::class list_change { } 0_list { - 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 - #} + # HOT inlet + if {$args != $@curlist} { + set @curlist $args + pd::outlet $self 0 list $@curlist + } } 0_bang { - 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 + pd::outlet $self 0 list $@curlist } + 1_list { + # COLD inlet + set @curlist $args + } } |