From 519a19844437310ecce7a9295df7f1bcfe534282 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 15 Nov 2011 14:17:58 +0000
Subject: fixed binbuf support

svn path=/trunk/externals/loaders/tclpd/; revision=15751
---
 tclpd.tcl | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'tclpd.tcl')

diff --git a/tclpd.tcl b/tclpd.tcl
index fe358ac..a93fc84 100644
--- a/tclpd.tcl
+++ b/tclpd.tcl
@@ -261,24 +261,14 @@ namespace eval ::pd {
 
     proc get_binbuf {self} {
         set ob [CAST_t_object $self]
-        post "get_binbuf: ob = $ob"
-        if 0 {
         set binbuf [$ob cget -te_binbuf]
         set len [binbuf_getnatom $binbuf]
         set result {}
         for {set i 0} {$i < $len} {incr i} {
-            set atom [tclpd_binbuf_get_atom $binbuf $i]
-            set selector [atom_type_string $atom]
-            set value {?}
-            if {$selector eq "float"} {
-                set value [atom_float_value $atom]
-            } elseif {$selector eq "symbol"} {
-                set value [atom_symbol_value $atom]
-            }
-            lappend result [list $selector $value]
+            set atom [binbuf_getatom $binbuf $i]
+            lappend result $atom
         }
         return $result
-        } else {return {}}
     }
 }
 
-- 
cgit v1.2.1