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

Hovering other menu titles while one is open will drop down the other menus, even wihout holding down mouse button1

This commit is contained in:
stefan schippers 2024-12-30 15:31:59 +01:00
parent 1e75d69dfe
commit 1a14adaade
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/xschem.tcl
View File

@ -7780,6 +7780,7 @@ proc build_widgets { {topwin {} } } {
} else { } else {
set selectcolor black set selectcolor black
} }
frame $topwin.menubar -relief raised -bd 2 frame $topwin.menubar -relief raised -bd 2
menubutton $topwin.menubar.file -text "File" -menu $topwin.menubar.file.menu menubutton $topwin.menubar.file -text "File" -menu $topwin.menubar.file.menu
menu $topwin.menubar.file.menu -tearoff 0 menu $topwin.menubar.file.menu -tearoff 0
@ -7804,6 +7805,8 @@ proc build_widgets { {topwin {} } } {
menubutton $topwin.menubar.help -text "Help" -menu $topwin.menubar.help.menu menubutton $topwin.menubar.help -text "Help" -menu $topwin.menubar.help.menu
menu $topwin.menubar.help.menu -tearoff 0 menu $topwin.menubar.help.menu -tearoff 0
# activate menus when hovering the mouse, even without button pressed
bind Menubutton <Motion> { tk::MbMotion %W down %X %Y}
$topwin.menubar.help.menu add command -label "Help" -command "textwindow \"${XSCHEM_SHAREDIR}/xschem.help\" ro" \ $topwin.menubar.help.menu add command -label "Help" -command "textwindow \"${XSCHEM_SHAREDIR}/xschem.help\" ro" \
-accelerator {?} -accelerator {?}