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
|
