From 700493518268f65e95ad08e230ecfe2b9df8949a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sun, 23 May 2021 14:59:40 +0200
Subject: kompozer: Improve mouse handling
---
tt.programs.kompozer.ahk | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/tt.programs.kompozer.ahk b/tt.programs.kompozer.ahk
index fb72c68..2188e81 100644
--- a/tt.programs.kompozer.ahk
+++ b/tt.programs.kompozer.ahk
@@ -39,27 +39,35 @@ return
+AppsKey:: ; open tag menu
MouseGetPos, mx, my
WinGetPos,,, w, h
+BlockInput, MouseMove
MouseMove, % w - 40, % h - 20, 0
SendInput, {RButton}
MouseMove, % mx, % my, 0
+BlockInput, MouseMoveOff
return
F1:: ; open advanced properties for tag
MouseGetPos, mx, my
WinGetPos,,, w, h
+BlockInput, MouseMove
MouseMove, % w - 40, % h - 20, 0
SendInput, {RButton}
MouseMove, % mx, % my, 0
+Sleep, 10
SendInput, {Up}{Enter}
+BlockInput, MouseMoveOff
return
F2:: ; open inline styles for tag
MouseGetPos, mx, my
WinGetPos,,, w, h
+BlockInput, MouseMove
MouseMove, % w - 40, % h - 20, 0
SendInput, {RButton}
MouseMove, % mx, % my, 0
+Sleep, 10
SendInput, {Up}{Up}{Enter}
+BlockInput, MouseMoveOff
return
#IfWinActive Rubber dome keyboard buyer's guide ahk_group KompoZer
@@ -78,23 +86,27 @@ CounterRD()
F8:: ; class=left
MouseGetPos, mx, my
WinGetPos,,, w, h
+BlockInput, MouseMove
if (CounterRD() & 1) ; odd
MouseMove, % w - 40, % h - 25, 0
else
MouseMove, % w - 40, % h - 15, 0
SendInput, {RButton}{Up}{Up}{Up}{Right}l
MouseMove, % mx, % my, 0
+BlockInput, MouseMoveOff
return
F9:: ; class=clear
MouseGetPos, mx, my
WinGetPos,,, w, h
+BlockInput, MouseMove
if (CounterRD() & 1) ; odd
MouseMove, % w - 40, % h - 25, 0
else
MouseMove, % w - 40, % h - 15, 0
SendInput, {RButton}{Up}{Up}{Up}{Right}c
MouseMove, % mx, % my, 0
+BlockInput, MouseMoveOff
return
#IfWinActive ahk_group KompoZer
--
cgit v1.2.3