From 09813f8e1ee67391597d31a685987dc1d81ca356 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 4 Jan 2025 12:47:13 +0100
Subject: [PATCH] restrict `menu unpost by click` hack to 8.6+ tcl versions.
 the hack works on tcl8.4, but lets avoid potential problems on jurassic
 systems

---
 src/xschem.tcl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 739d6f29..a65697c8 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8877,13 +8877,16 @@ if {$text_replace_selection && $OS != "Windows"} {
 }
 
 ## allow to unpost menu entries when clicking a posted menu
-bind Menu <Button> {
-   if { [%W cget -type] eq "menubar" && [info exists tk::Priv(menuActivated)]} {
-     %W activate none
-   } else {
-     %W activate @%x,%y
-   }
-   tk::MenuButtonDown %W
+
+if { [info tclversion] >= 8.6 } {
+  bind Menu <Button> {
+     if { [%W cget -type] eq "menubar" && [info exists tk::Priv(menuActivated)]} {
+       %W activate none
+     } else {
+       %W activate @%x,%y
+     }
+     tk::MenuButtonDown %W
+  }
 }
 
 ## this proc must be called for any created entry widgets