diff options
| -rw-r--r-- | examples/binbuf-test.tcl | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/examples/binbuf-test.tcl b/examples/binbuf-test.tcl index a39118f..926af8c 100644 --- a/examples/binbuf-test.tcl +++ b/examples/binbuf-test.tcl @@ -10,14 +10,6 @@ pd::class binbuf-test { } 0_bang { - set binbuf [tclpd_get_object_binbuf $self] - pd::outlet $self 0 list [list "symbol binbuf" "symbol $binbuf"] - - set len [binbuf_getnatom $binbuf] - pd::outlet $self 0 list [list "symbol len" "symbol $len"] - - #for {set i 0} {$i < $len} {incr i} { - # pd::post $i:[tclpd_binbuf_get_atom $binbuf $i] - #} + pd::outlet $self 0 list [pd::get_binbuf $self] } } |