* tkcon.tcl: clean up cmd global var used [Bug 2441583]

diff --git a/ChangeLog b/ChangeLog
index 6b89d6967669e66ea4a369cf027b86a14524e597..f1181a325b1bab627853ce741b916ea2aef56154 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2009-04-24  Jeff Hobbs  <jeffh@ActiveState.com>
 
+       * tkcon.tcl: clean up cmd global var used [Bug 2441583]
+
        * tkcon.tcl (::tkcon::Retrieve): support http code redirect for
        downloading latest version. [Bug 1755500]
 

diff --git a/tkcon.tcl b/tkcon.tcl
index 671d34b0bf2e04e18dd99e94d90e474f8d9ece9b..1d70ea2f1cc2c0135e5ab75f352f1c5b1ce08581 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -57,7 +57,6 @@ foreach pkg [info loaded {}] {
        }
     }
 }
-catch {unset pkg file name version}
 
 # Tk 8.4 makes previously exposed stuff private.
 # FIX: Update tkcon to not rely on the private Tk code.
@@ -65,12 +64,15 @@ catch {unset pkg file name version}
 if {![llength [info globals tkPriv]]} {
     ::tk::unsupported::ExposePrivateVariable tkPriv
 }
-foreach cmd {SetCursor UpDownLine Transpose ScrollPages} {
-    if {![llength [info commands tkText$cmd]]} {
-        ::tk::unsupported::ExposePrivateCommand tkText$cmd
+foreach name {SetCursor UpDownLine Transpose ScrollPages} {
+    if {![llength [info commands tkText$name]]} {
+        ::tk::unsupported::ExposePrivateCommand tkText$name
     }
 }
 
+# Unset temporary global vars
+catch {unset pkg file name version}
+
 # Initialize the ::tkcon namespace
 #
 namespace eval ::tkcon {