I fixed it. I hate SWIG.

svn path=/trunk/externals/tclpd/; revision=12137

1 files changed, 5 insertions, 1 deletions

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