From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 24 Apr 2009 19:12:32 +0000 (+0000)
Subject: 	* tkcon.tcl: clean up cmd global var used [Bug 2441583]
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4f9bdd6fec266860b60b920ba107e32465cb6cdd;p=tkcon

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

diff --git a/ChangeLog b/ChangeLog
index 6b89d69..f1181a3 100644
--- 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 671d34b..1d70ea2 100755
--- 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 {