final design

svn path=/trunk/externals/loaders/tclpd/; revision=15591

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]
     }
 }