diff --git a/src/xschem.tcl b/src/xschem.tcl
index 0db6a587..43c24d94 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8828,21 +8828,6 @@ if { [info exists has_x]} {
   }
 }
 
-# This is a dirty hack to make a click on an open menu close it.
-# not guaranteed to work on future tk versions
-
-# bind Menu <Button> {
-#     if {$tk::Priv(menuBar) ne {}} {
-#         tk::MenuEscape %W
-#         set Priv(menuBar) {}
-#         set Priv(focus) {}
-#         unset -nocomplain Priv(menuActivated)
-#         %W activate none
-#     } else {
-#         tk::MenuButtonDown %W
-#     }
-# }
-
 set OS [lindex $tcl_platform(os) 0]
 set env(LC_ALL) C
 # tcl variable XSCHEM_LIBRARY_PATH  should already be set in xschemrc