diff options
Diffstat (limited to 'examples/binbuf-test.tcl')
| -rw-r--r-- | examples/binbuf-test.tcl | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/examples/binbuf-test.tcl b/examples/binbuf-test.tcl index 9c9117f..62fc8c1 100644 --- a/examples/binbuf-test.tcl +++ b/examples/binbuf-test.tcl @@ -1,15 +1,12 @@ -package require Tclpd 0.2.2 -package require TclpdLib 0.18 +package require Tclpd 0.2.3 +package require TclpdLib 0.19 -pd::class binbuf-test { - constructor { - pd::add_outlet $self list - } - - destructor { - } +proc binbuf-test::constructor {self args} { + pd::add_outlet $self list +} - 0_bang { - pd::outlet $self 0 list [pd::get_binbuf $self] - } +proc binbuf-test::0_bang {self} { + pd::outlet $self 0 list [pd::get_binbuf $self] } + +pd::class binbuf-test |