From ba069019909c54f3c90b7fec51c145f88cf99e3e Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sat, 29 Aug 2009 18:48:03 +0000
Subject: add proxy inlet. still some unresolved TypeError, will continue the
 work tomorrow

svn path=/trunk/externals/tclpd/; revision=12134
---
 pdlib.tcl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index e61b7c7..904be91 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -30,9 +30,10 @@ namespace eval ::pd {
                 #lappend _($self:x_inlet) [symbolinlet_new [tclpd_get_object $self] $ptr]
             }
             list {
-                set ptr [new_t_alist]
-                alist_init $ptr
-                alist_list $ptr 0 3 {some test args}
+                set ptr [new_t_proxyinlet]
+                proxyinlet_init $ptr
+                #proxyinlet_list $ptr [gensym list] 2 {{symbol foo} {symbol bar}}
+                inlet_new [tclpd_get_object $self] [$ptr cget -pd] 0 {}
                 lappend _($self:p_inlet) $ptr
                 lappend _($self:t_inlet) "list"
             }
@@ -60,7 +61,7 @@ namespace eval ::pd {
         variable _
         set p_inlet [lindex $_($self:p_inlet) [expr $n-1]]
         if {$_($self:t_inlet) == {list}} {
-            return [$p_inlet value]
+            return [$p_inlet argv]
         } else {
             return [$p_inlet value]
         }
-- 
cgit v1.2.1