From 104530243787b41b804ae25d0a72e17791fafd10 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 21 Feb 2003 00:48:52 +0000
Subject: [PATCH] make sure OPT is known var

---
 tkcon.tcl | 2 ++
 1 file changed, 2 insertions(+)

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]]} {
-- 
2.23.0