From 60160b4fb3576ba38d901ff18976add29e6cd408 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 13 Oct 2011 23:34:37 +0000
Subject: final design

svn path=/trunk/externals/loaders/tclpd/; revision=15591
---
 examples/binbuf-test.tcl | 10 +---------
 1 file changed, 1 insertion(+), 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]
     }
 }
-- 
cgit v1.2.1