diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-02 16:42:06 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-02 16:42:06 +0000 |
commit | 44f29524444a96d9e40a76f48750f17e2fdc2974 (patch) | |
tree | 179e086e72dd64cd130ee493e78d8535a74a76ec /list_change.tcl | |
parent | 5a38f01421e93db2cf5b5c05afe84fb73eb89425 (diff) |
reorganize tree following template structure
svn path=/trunk/externals/loaders/tclpd/; revision=15443
Diffstat (limited to 'list_change.tcl')
-rw-r--r-- | list_change.tcl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/list_change.tcl b/list_change.tcl deleted file mode 100644 index 2c70937..0000000 --- a/list_change.tcl +++ /dev/null @@ -1,31 +0,0 @@ -package require Tclpd 0.2.1 -package require TclpdLib 0.17 - -pd::class list_change { - constructor { - # add second inlet (first created by default) - pd::add_inlet $self list - - # add outlet - pd::add_outlet $self list - - set @curlist {} - } - - 0_list { - # HOT inlet - if {$args != $@curlist} { - set @curlist $args - pd::outlet $self 0 list $@curlist - } - } - - 0_bang { - pd::outlet $self 0 list $@curlist - } - - 1_list { - # COLD inlet - set @curlist $args - } -} |