From c80ad601728139c16c4903f5ed08680f7e5f203c Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sun, 13 Nov 2011 22:52:33 +0000
Subject: 0.3.0 - typemaps support complete

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

(limited to 'examples/tclpd-console.tcl')

diff --git a/examples/tclpd-console.tcl b/examples/tclpd-console.tcl
index 0c37904..56053cd 100644
--- a/examples/tclpd-console.tcl
+++ b/examples/tclpd-console.tcl
@@ -1,5 +1,5 @@
-package require Tclpd 0.2.3
-package require TclpdLib 0.19
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
 
 package require base64
 
@@ -49,7 +49,8 @@ proc tclpd-console::constructor {self} {
     set ::tclpd-console::loaded 1
     set ::${self}_loaded 1
 
-    pd_bind [tclpd_get_instance_pd $self] [gensym $self]
+    # beware: typemap magic (1st arg get cast to a t_pd, second to a t_symbol)
+    pd_bind $self $self
 
     sys_gui "set ::tclpd_console $self"
     sys_gui {
@@ -92,7 +93,7 @@ proc tclpd-console::destructor {self} {
     if {[set ::${self}_loaded]} {
         sys_gui { destroy .pdwindow.tcl.tclpd ; unset ::tclpd_console }
 
-        pd_unbind [tclpd_get_instance_pd $self] [gensym $self]
+        pd_unbind $self $self
 
         # restore original puts
         if {[info procs puts_tclpd_console] ne {}} {
-- 
cgit v1.2.1