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/dynreceive.tcl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'examples/dynreceive.tcl')

diff --git a/examples/dynreceive.tcl b/examples/dynreceive.tcl
index 6903da9..ceef7a8 100644
--- a/examples/dynreceive.tcl
+++ b/examples/dynreceive.tcl
@@ -1,11 +1,11 @@
-package require Tclpd 0.2.3
-package require TclpdLib 0.19
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
 
 proc+ dynreceive::constructor {self args} {
     set @sym {}
     if {[pd::args] > 0} {
         set @sym [pd::arg 0 symbol]
-        pd_bind [tclpd_get_instance_pd $self] [gensym $@sym]
+        pd_bind $self $@sym
     }
     pd::add_outlet $self
 }
@@ -14,7 +14,7 @@ proc+ dynreceive::destructor {self} {
     # don't forget to call pd_unbind, or sending things to a symbol
     # bound to dead object will crash pd!
     if {$@sym != {}} {
-        pd_unbind [tclpd_get_instance_pd $self] [gensym $@sym]
+        pd_unbind $self $@sym
     }
 }
 
@@ -22,13 +22,13 @@ proc+ dynreceive::0_set {self args} {
     # send [set empty( to clear the receive symbol
     set s [pd::arg 0 symbol]
     if {$@sym != {}} {
-        pd_unbind [tclpd_get_instance_pd $self] [gensym $@sym]
+        pd_unbind $self $@sym
     }
     if {$s == {empty}} {
         set @sym {}
     } else {
         set @sym $s
-        pd_bind [tclpd_get_instance_pd $self] [gensym $@sym]
+        pd_bind $self $@sym
     }
 }
 
@@ -41,7 +41,7 @@ proc+ dynreceive::0_float {self args} {
 }
 
 proc+ dynreceive::0_symbol {self args} {
-    pd::outlet $self 0 symbol [gensym [pd::arg 0 symbol]]
+    pd::outlet $self 0 symbol [pd::arg 0 symbol]
 }
 
 proc+ dynreceive::0_anything {self args} {
-- 
cgit v1.2.1