From fc368b379173f3898647319949eb701ef72ae57b Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sat, 15 Oct 2011 21:39:31 +0000
Subject: tidy up

svn path=/trunk/externals/loaders/tclpd/; revision=15608
---
 examples/tclpd-console.tcl | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/examples/tclpd-console.tcl b/examples/tclpd-console.tcl
index 2516e04..3ab338d 100644
--- a/examples/tclpd-console.tcl
+++ b/examples/tclpd-console.tcl
@@ -13,26 +13,28 @@ proc tclpd-console::constructor {self} {
 
     sys_gui "set ::tclpd_console $self"
     sys_gui {
-        frame .pdwindow.tcl.tclpd -borderwidth 0
-        pack .pdwindow.tcl.tclpd -side bottom -fill x
-        label .pdwindow.tcl.tclpd.label -text [_ "TclPd:"] -anchor e
-        pack .pdwindow.tcl.tclpd.label -side left
-        entry .pdwindow.tcl.tclpd.entry -width 200 \
+        set w .pdwindow.tcl.tclpd
+        frame $w -borderwidth 0
+        pack $w -side bottom -fill x
+        label $w.label -text [_ "tclpd: "] -anchor e
+        pack $w.label -side left
+        entry $w.entry -width 200 \
             -exportselection 1 -insertwidth 2 -insertbackground blue \
-            -textvariable ::pdwindow::tclpdentry -font {$::font_family 12}
-        pack .pdwindow.tcl.tclpd.entry -side left -fill x
-        bind .pdwindow.tcl.tclpd.entry <$::modifier-Key-a> { %W selection range 0 end; break }
-        bind .pdwindow.tcl.tclpd.entry <Return> { ::pdsend "$::tclpd_console $::pdwindow::tclpdentry" }
-        bind .pdwindow.tcl.tclpd.entry <KeyRelease> { .pdwindow.tcl.tclpd.entry configure -background [lindex {#FFF0F0 #FFFFFF} [info complete $::pdwindow::tclpdentry]] }
-        bind .pdwindow.text <Key-Tab> { focus .pdwindow.tcl.tclpd.entry; break }
+            -textvariable ::tclpd_cmd -font {$::font_family 12}
+        pack $w.entry -side left -fill x
+        bind $w.entry <$::modifier-Key-a> "%W selection range 0 end; break"
+        bind $w.entry <Return> {::pdsend "$::tclpd_console $::tclpd_cmd"}
+        set bgrule {[lindex {#FFF0F0 #FFFFFF} [info complete $::tclpd_cmd]]}
+        bind $w.entry <KeyRelease> "$w.entry configure -background $bgrule"
+        bind .pdwindow.text <Key-Tab> "focus $w.entry; break"
     }
 }
 
 proc tclpd-console::destructor {self} {
     if {[set ::${self}_loaded]} {
-        pd_unbind [tclpd_get_instance_pd $self] [gensym $self]
+        sys_gui { destroy .pdwindow.tcl.tclpd ; unset ::tclpd_console }
 
-        sys_gui { destroy .pdwindow.tcl.tclpd }
+        pd_unbind [tclpd_get_instance_pd $self] [gensym $self]
     }
 
     unset ::tclpd_console_loaded
-- 
cgit v1.2.1