1 2 3 4 5 6 7 8 9 10 11 12
package require Tclpd 0.3.0 package require TclpdLib 0.20 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