diff options
Diffstat (limited to 'examples/dynreceive.tcl')
| -rw-r--r-- | examples/dynreceive.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
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} { |