luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Revert dirty hack to make a click on an open menu close it, still some issues

This commit is contained in:
stefan schippers 2025-01-03 13:15:30 +01:00
parent ed1149edb2
commit abc88e8819
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/xschem.tcl
View File

@ -8830,17 +8830,18 @@ if { [info exists has_x]} {
# This is a dirty hack to make a click on an open menu close it. # This is a dirty hack to make a click on an open menu close it.
# not guaranteed to work on future tk versions # not guaranteed to work on future tk versions
bind Menu <Button> {
if {$tk::Priv(menuBar) ne {}} { # bind Menu <Button> {
tk::MenuEscape %W # if {$tk::Priv(menuBar) ne {}} {
set Priv(menuBar) {} # tk::MenuEscape %W
set Priv(focus) {} # set Priv(menuBar) {}
unset -nocomplain Priv(menuActivated) # set Priv(focus) {}
%W activate none # unset -nocomplain Priv(menuActivated)
} else { # %W activate none
tk::MenuButtonDown %W # } else {
} # tk::MenuButtonDown %W
} # }
# }
set OS [lindex $tcl_platform(os) 0] set OS [lindex $tcl_platform(os) 0]
set env(LC_ALL) C set env(LC_ALL) C