list_change.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

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

        set @curlist {}
    }

    0_list {
        if {$args != $@curlist} {
            set @curlist $args
            0_bang
        }
    }

    0_bang {
        pd::outlet $self 0 list $@curlist
    }
}