From 93a30817cfaecb858fa72a5836f5bc40f6649b50 Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Sun, 13 Sep 2009 21:34:35 +0000
Subject: Support-Funktion ED12 für einfachere Belegungsanpassungen eingefügt.
 Darüber hinaus die Parameter für ED1 und ED1S der Nomenklatur angepasst.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'windows')

diff --git a/windows/neo-vars/src/source/keydefinitions.ahk b/windows/neo-vars/src/source/keydefinitions.ahk
index 197dd04..80f869c 100644
--- a/windows/neo-vars/src/source/keydefinitions.ahk
+++ b/windows/neo-vars/src/source/keydefinitions.ahk
@@ -211,14 +211,31 @@ EDS(scpos,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a="",e8a="") {
   ED(vksc%scpos%,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a,e8a)
 }
 
-ED1(pos,e1) {
- ED(pos,0,e1,e1,e1,e1,e1,e1)
+ED1(pos,e1a) {
+ ED(pos,0,e1a,e1a,e1a,e1a,e1a,e1a)
 }
 
-ED1S(scpos,e1) {
- EDS(scpos,0,e1,e1,e1,e1,e1,e1)
+ED1S(scpos,e1a) {
+ EDS(scpos,0,e1a,e1a,e1a,e1a,e1a,e1a)
 }
 
+ED12(scpos,caps,e1a,e2a) {
+  global
+  pos := vksc%scpos%
+  e1  := EncodeUniComposeA(e1a)
+  e2  := EncodeUniComposeA(e2a)
+  if (caps == 0) {
+    NOC%pos% := 1
+    UNSH%e1% := 0
+  } else {
+    NOC%pos% := 0
+    UNSH%e1% := 1 ; unshift wenn caps lock + Shift?
+  }
+  SetKeyPos("CP1" . pos, e1)
+  SetKeyPos("CP2" . pos, e2)
+}
+
+
 Comp := ""
 
 ; RegisterAndHookSC
-- 
cgit v1.2.3