EN | Doubleclick to close updated

The last post about the feature of closing Window by right doubleclicking has got some attention by my Lotus Notes friends.

So here is the updated version, which ignores Lotus Notes as they have the desired functionality themselves:

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx RightDoubleClick closes window

~RButton Up::
If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 500) {
ControlSend,,{ESC}, ahk_id %ID%
WinGetClass class, A
If (class = "MozillaUIWindowClass") { ; for Mozilla close only TAB/window
ControlSend,,^w, ahk_id %ID%
}

else If (class = "NOTES") { ; in case of Lotus Notes do nothing
}

else If (class = "XLMAIN") { ; for Excel close one sheet per right doubleclick
WinGetTitle title, A
If (title = "Microsoft Excel") { ; no more sheets - close the application
WinClose ahk_id %ID%
}
else ControlSend,,^w, ahk_id %ID%
}
Else WinClose ahk_id %ID%
}
Else WinGet ID, ID, A
Return

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Again, use the Autohotkey to run this as it is described on the previous post.