aboutsummaryrefslogtreecommitdiff
path: root/list_change.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'list_change.tcl')
-rw-r--r--list_change.tcl22
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
+ }
}