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.
# 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
}
}
# 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