make sure OPT is known var

diff --git a/tkcon.tcl b/tkcon.tcl
index 7b9b2b9734442c2b5041333d1125c9d1b15df1b2..f72e6fbc34f689074d88a150eb4eb4bc18192abd 100755 (executable)
--- 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]]} {