* tkcon.tcl (::tkcon::NamespacesList): corrected to not use window

	starting with an uppercase letter (error). (reins)

diff --git a/ChangeLog b/ChangeLog
index e4cfe738f7f9d6fe662b15c6ce6ab0a66e327255..c299767144dd17eebae2c4c8bca907b96803cc3a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-18  Jeff Hobbs  <hobbs@ajubasolutions.com>
+
+       * tkcon.tcl (::tkcon::NamespacesList): corrected to not use window
+       starting with an uppercase letter (error). (reins)
+
 2000-09-27  Jeff Hobbs  <hobbs@scriptics.com>
 
        * tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers).

diff --git a/tkcon.tcl b/tkcon.tcl
index 0ab4c1234ee9a4fee34c277f655fd339ae4ff90d..2b3e67e27636f59429e1e1aa95460e6a3f8ffd8c 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -1431,7 +1431,7 @@ proc ::tkcon::NamespaceMenu m {
 proc ::tkcon::NamespacesList {names} {
     variable PRIV
 
-    set f $PRIV(base).Namespaces
+    set f $PRIV(base).namespaces
     catch {destroy $f}
     toplevel $f
     listbox $f.names -width 30 -height 15 -selectmode single \