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/Keys-Neo.ahk      |  2 +-
 windows/autohotkey/Source/Methods-Other.ahk | 37 +++++++++++++++++++++--------
 2 files changed, 28 insertions(+), 11 deletions(-)

(limited to 'windows/autohotkey/Source')

diff --git a/windows/autohotkey/Source/Keys-Neo.ahk b/windows/autohotkey/Source/Keys-Neo.ahk
index 4083494..baf8db0 100644
--- a/windows/autohotkey/Source/Keys-Neo.ahk
+++ b/windows/autohotkey/Source/Keys-Neo.ahk
@@ -793,7 +793,7 @@ neo_punkt:
   if (Ebene = 1)
     OutputChar(".", "period")
   else if (Ebene = 2)
-    SendUnicodeChar("0x2026", "U2026") ; Ellipse
+    SendUnicodeChar("0x2026", "ellipsis") ; Ellipse
   else if (Ebene = 3)
     OutputChar("'", "apostrophe")
   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B3)
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