aboutsummaryrefslogtreecommitdiff
path: root/tests/basic_output_helper.tcl
blob: c557778bb7ba243096eb850e923cec650b7db4ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
package require Tclpd 0.3.0
package require TclpdLib 0.20

proc basic_output_helper::constructor {self args} {
    pd::add_outlet $self list
}

proc basic_output_helper::0_symbol {self args} {
    switch -exact -- [pd::arg 0 symbol] {
        float {
            pd::outlet $self 0 float 123
        }
        symbol {
            pd::outlet $self 0 symbol baz
        }
        list {
            pd::outlet $self 0 list {{symbol foo} {float 123} {symbol bar}}
        }
    }
}

pd::class basic_output_helper