From: Jeff Hobbs Date: Wed, 27 Sep 2000 21:12:51 +0000 (+0000) Subject: tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers) X-Git-Tag: tkcon-2-1~7 X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=4cfc4453e3ec9409df6e6420675409a9868167c5;p=tkcon tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers) --- diff --git a/ChangeLog b/ChangeLog index 053f915..e4cfe73 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-09-27 Jeff Hobbs + + * tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers). + 2000-09-20 Jeff Hobbs * tkcon.tcl (InitMenus): restricted the Attach Socket diff --git a/tkcon.tcl b/tkcon.tcl index dedd014..0ab4c12 100755 --- 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]} {