tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers)

diff --git a/ChangeLog b/ChangeLog
index 053f9153cdf80eac8489bb05229a24e2411a629c..e4cfe738f7f9d6fe662b15c6ce6ab0a66e327255 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-27  Jeff Hobbs  <hobbs@scriptics.com>
+
+       * tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers).
+
 2000-09-20  Jeff Hobbs  <hobbs@scriptics.com>
 
        * tkcon.tcl (InitMenus): restricted the Attach Socket

diff --git a/tkcon.tcl b/tkcon.tcl
index dedd0149e524823583c35dbc65bf5821b7e9d474..0ab4c1234ee9a4fee34c277f655fd339ae4ff90d 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -977,6 +977,7 @@ proc ::tkcon::Prompt {{pre {}} {post {}} {prompt {}}} {
 proc ::tkcon::About {} {
     variable OPT
     variable PRIV
+    variable COLOR
 
     set w $PRIV(base).about
     if {[winfo exists $w]} {