diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-13 22:52:33 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-13 22:52:33 +0000 |
| commit | c80ad601728139c16c4903f5ed08680f7e5f203c (patch) | |
| tree | ab8d9484489355b9877eecf05e859a02d8bb7e14 /examples/tclpd-console.tcl | |
| parent | 8dd16881e82ee2b655049367968ebd8d28d1d9cc (diff) | |
0.3.0 - typemaps support complete
svn path=/trunk/externals/loaders/tclpd/; revision=15738
Diffstat (limited to 'examples/tclpd-console.tcl')
| -rw-r--r-- | examples/tclpd-console.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
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 {}} { |