From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 21 Feb 2003 00:48:52 +0000 (+0000)
Subject: make sure OPT is known var
X-Git-Tag: tkcon-2-4~21
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=104530243787b41b804ae25d0a72e17791fafd10;p=tkcon

make sure OPT is known var
---

diff --git a/tkcon.tcl b/tkcon.tcl
index 7b9b2b9..f72e6fb 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -2487,6 +2487,7 @@ proc ::tkcon::Event {int {str {}}} {
 ##
 proc ::tkcon::ErrorHighlight w {
     variable COLOR
+    variable OPT
 
     ## do voodoo here
     set app [Attach]
@@ -4546,6 +4547,7 @@ proc ::tkcon::Bindings {} {
 ##
 proc ::tkcon::PopupMenu {X Y} {
     variable PRIV
+    variable OPT
 
     set w $PRIV(console)
     if {[string compare $w [winfo containing $X $Y]]} {