examples/binbuf-test.tcl


1
2
3
4
5
6
7
8
9
10
11
12

package require Tclpd 0.2.3
package require TclpdLib 0.19

proc binbuf-test::constructor {self args} {
    pd::add_outlet $self list
}

proc binbuf-test::0_bang {self} {
    pd::outlet $self 0 list [pd::get_binbuf $self]
}

pd::class binbuf-test