From 46f5d785b87833c98117e32ee1a8af5d14c1faea Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Fri, 13 Feb 2009 17:40:01 +0000
Subject: WieMitNeo wird jetzt in einer modalen MessageBox ausgegeben, die mehr
 Platz erzaubt als ein TrayTip (laut AHK-Dokumentation max. 255 Zeichen).
 Sollte aber auf GUI geändert werden. Jede Compose-Sequenz wird zwei mal
 ausgegeben: Einmal als Zeichensequenz, das andere Mal als Tastensequenz.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1658 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/keydefinitions.ahk | 43 ++++++++++++--------------
 1 file changed, 19 insertions(+), 24 deletions(-)

(limited to 'windows/neo-vars/src/source/keydefinitions.ahk')

diff --git a/windows/neo-vars/src/source/keydefinitions.ahk b/windows/neo-vars/src/source/keydefinitions.ahk
index bdbd389..8bca428 100644
--- a/windows/neo-vars/src/source/keydefinitions.ahk
+++ b/windows/neo-vars/src/source/keydefinitions.ahk
@@ -110,6 +110,17 @@ ED1("VKBFSC02B","PM3RD") ; Mod3R (#')
 ED1("VKE2SC056","PM4LD") ; Mod4L (<>)
 ED1("VKA5SC138","PM4RD") ; Mod4R (AltGr)
 
+SetKeyPos(pos,char) {
+  global
+  current := %pos%
+  if (current != "")
+    StringReplace,CRK%current%,CRK%current%,% " " . pos . " ",% " "
+  if (SubStr(CRK%char%,0) != " ")
+    CRK%char% .= " "
+  CRK%char% .= pos . " "
+  %pos% := char
+}
+
 ED(pos,caps,e1,e2,e3,e4,e5,e6,e7="",e8="") {
   global
   if (caps == 0)
@@ -118,30 +129,14 @@ ED(pos,caps,e1,e2,e3,e4,e5,e6,e7="",e8="") {
     if (e1 != "")
       UNSH%e1% := 1 ; unshift wenn caps lock + Shift?
   }
-  CP1%pos% := e1
-  CP2%pos% := e2
-  CP3%pos% := e3
-  CP4%pos% := e4
-  CP5%pos% := e5
-  CP6%pos% := e6
-  CP7%pos% := e7
-  CP8%pos% := e8
-  if (e1 != "")
-    CRK%e1% .= " " . e1
-  if (e2 != "")
-    CRK%e2% .= " S__M2" . e1
-  if (e3 != "")
-    CRK%e3% .= " S__M3" . e1
-  if (e4 != "")
-    CRK%e4% .= " S__M4" . e1
-  if (e5 != "")
-    CRK%e5% .= " S__M5" . e1
-  if (e6 != "")
-    CRK%e6% .= " S__M6" . e1
-  if (e7 != "")
-    CRK%e7% .= " S__M7" . e1
-  if (e8 != "")
-    CRK%e8% .= " S__M8" . e1
+  SetKeyPos("CP1" . pos,e1)
+  SetKeyPos("CP2" . pos,e2)
+  SetKeyPos("CP3" . pos,e3)
+  SetKeyPos("CP4" . pos,e4)
+  SetKeyPos("CP5" . pos,e5)
+  SetKeyPos("CP6" . pos,e6)
+  SetKeyPos("CP7" . pos,e7)
+  SetKeyPos("CP8" . pos,e8)
 }
 
 EDN(pos1,pos2,caps,e1,e2,e3,e4,e5,e6) {
-- 
cgit v1.2.3