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

Bring open dialogs always on top of xschem main window if user clicks title bar on gnome/metacity DMs

This commit is contained in:
Stefan Schippers 2020-09-11 11:55:00 +02:00
parent 020c61bc3d
commit 4a332ade11
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/xschem.tcl
View File

@ -2900,13 +2900,28 @@ proc build_windows {} {
###
### Tk event handling
###
### bind .drv <event> {xschem callback <type> <x> <y> <keysym> <button of w> <h> <state>}
###
bind . <Visibility> {
# bind . <Enter> {
# if { [winfo exists .dialog] && [winfo ismapped .dialog] && [winfo ismapped .] && [wm stackorder .dialog isbelow . ]} {
# raise .dialog .drw
# }
# }
bind . <Expose> {
if { [winfo exists .dialog] && [winfo ismapped .dialog] && [winfo ismapped .] && [wm stackorder .dialog isbelow . ]} {
raise .dialog .drw
}
}
bind . <Visibility> {
if { [winfo exists .dialog] && [winfo ismapped .dialog] && [winfo ismapped .] && [wm stackorder .dialog isbelow . ]} {
raise .dialog .drw
}
}
bind . <FocusIn> {
if { [winfo exists .dialog] && [winfo ismapped .dialog] && [winfo ismapped .] && [wm stackorder .dialog isbelow . ]} {
raise .dialog .drw
}
}
bind .drw <Double-Button-1> {xschem callback -3 %x %y 0 %b 0 %s}
bind .drw <Double-Button-2> {xschem callback -3 %x %y 0 %b 0 %s}
bind .drw <Double-Button-3> {xschem callback -3 %x %y 0 %b 0 %s}