From d83f31b812d2fdcee282d92843fea9ffdc1faaea Mon Sep 17 00:00:00 2001
From: martin_r <martin_r@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Tue, 16 Sep 2008 04:16:27 +0000
Subject: Cokos mit 4 Tasten möglich. horizontalen Ellipsen-CompKey
 wiederhergestellt.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@888 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/autohotkey/Source/Methods-Other.ahk | 37 +++++++++++++++++++++--------
 1 file changed, 27 insertions(+), 10 deletions(-)

(limited to 'windows/autohotkey/Source/Methods-Other.ahk')

diff --git a/windows/autohotkey/Source/Methods-Other.ahk b/windows/autohotkey/Source/Methods-Other.ahk
index b57ba61..02d742d 100644
--- a/windows/autohotkey/Source/Methods-Other.ahk
+++ b/windows/autohotkey/Source/Methods-Other.ahk
@@ -102,23 +102,40 @@ OutputChar12(val1,val2,val3,val4) {
     else send % "{blind}" . c
 }
 
+;Folgende Funktion prüft, ob das eben geschriebene Zeichen eine gültige Coko 
+;fortsetzen KÖNNTE – falls ja, wird 1 zurückgegeben (die Eingabe soll blind erfolgen), 
+;andernfalls wird 0 zurückgegeben (das Zeichen soll ausgegeben werden).
+
 CheckComp(d) {
   global
-  if isFurtherCompkey {
-    CompKey := PriorCompKey . " " . "<" . d . ">"
-    isFurtherCompkey = 0
+  if (PriorDeadKey = "comp") {
+    CompKey := "<" . d . ">"
+    DeadKey =
+    TryThirdCompKey = 0
+    return 1
+  } else if TryFourthCompKey {
+    TryFourthCompKey = 0
+    CompKey := ThreeCompKeys . " " . "<" . d . ">"
+    ThreeCompKeys =
     CheckCompose()
-    if (CompKey = "")
+    if !(CompKey) {
+      send {left}{bs}{right}
       return 1
-    else CompKey =
+    } else CompKey =
+  } else if TryThirdCompKey {
+    TryThirdCompKey = 0
+    CompKey := PriorCompKey . " " . "<" . d . ">"
+    CheckCompose()
+    if CompKey {
+      TryFourthCompKey = 1
+      ThreeCompKeys := CompKey
+      CompKey =
+    } else return 1
   } else if PriorCompKey {
     CompKey := PriorCompKey . " " . "<" . d . ">"
     CheckCompose()
     if CompKey
-      isFurtherCompKey = 1
-    return 1
-  } else if (PriorDeadKey = "comp") {
-    CompKey := "<" . d . ">"
+      TryThirdCompKey = 1
     return 1
   }
-}
+}
\ No newline at end of file
-- 
cgit v1.2.3