From d780c1e9b84d4710e80f952415dfdba48cdea6a3 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sat, 29 Aug 2009 19:03:44 +0000
Subject: I fixed it. I hate SWIG.

svn path=/trunk/externals/tclpd/; revision=12137
---
 pdlib.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index 904be91..2a5747e 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -33,7 +33,11 @@ namespace eval ::pd {
                 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 {}
+                #puts "(t_proxyinlet) $ptr cget -pd = "
+                #puts "                               [$ptr cget -pd]"
+                #inlet_new [tclpd_get_object $self] [$ptr cget -pd] 0 {}
+                # I HATE SWIG
+                tclpd_add_proxyinlet [tclpd_get_object $self] $ptr
                 lappend _($self:p_inlet) $ptr
                 lappend _($self:t_inlet) "list"
             }
-- 
cgit v1.2.1