From d17e71d7f2083ad9a527f0de51c1d8d9a9d00e6b Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Sun, 2 Nov 2008 15:02:07 +0000
Subject: • Lernmodus implementiert. Wird über Mod3+F11 aktiviert • Zuweisung
 im ED-Skript setzen auch leere Variablen (wichtig für das Überschreiben bzw.
 Außer-Kraft-Setzen, z.B. im LernModus).
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1089 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/keydefinitions.ahk | 26 ++++++-----------
 windows/neo-vars/neo20-vars.ahk     | 56 +++++++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+), 17 deletions(-)

diff --git a/windows/neo-vars/keydefinitions.ahk b/windows/neo-vars/keydefinitions.ahk
index 5621f3a..c1cc6d0 100644
--- a/windows/neo-vars/keydefinitions.ahk
+++ b/windows/neo-vars/keydefinitions.ahk
@@ -77,7 +77,7 @@ ED("space",0,"U0020","U0020","U0020","SN__0","U00A0","U202F")
 ED("esc"  ,0,"U001B","U001B","U001B","PRlod","U001B","U001B")
 ED("tab"  ,0,"U0009","U0009","SComp","U0009","U0009","U0009")
 ED("F10"  ,0,"S_F10","S_F10","P_EHt","P_VMt","S_F10","S_F10")
-ED("F11"  ,0,"S_F11","S_F11","S_F11","PLnSt","S_F11","S_F11")
+ED("F11"  ,0,"S_F11","S_F11","P_LMt","PLnSt","S_F11","S_F11")
 ED1("enter"    ,"U000D")
 ED1("backspace","U0008")
 ED1("del"      ,"S_Del")
@@ -100,22 +100,14 @@ ED(pos,caps,e1,e2,e3,e4,e5,e6,e7="",e8="") {
     if (e1 != "")
       UNSH%e1% := 1 ; unshift wenn caps lock + Shift?
   }
-  if (e1 != "") 
-    CP1%pos% := e1
-  if (e2 != "") 
-    CP2%pos% := e2
-  if (e3 != "") 
-    CP3%pos% := e3
-  if (e4 != "") 
-    CP4%pos% := e4
-  if (e5 != "") 
-    CP5%pos% := e5
-  if (e6 != "") 
-    CP6%pos% := e6
-  if (e7 != "") 
-    CP7%pos% := e7
-  if (e8 != "") 
-    CP8%pos% := e8
+  CP1%pos% := e1
+  CP2%pos% := e2
+  CP3%pos% := e3
+  CP4%pos% := e4
+  CP5%pos% := e5
+  CP6%pos% := e6
+  CP7%pos% := e7
+  CP8%pos% := e8
 }
 
 EDN(pos1,pos2,caps,e1,e2,e3,e4,e5,e6) {
diff --git a/windows/neo-vars/neo20-vars.ahk b/windows/neo-vars/neo20-vars.ahk
index c357d8a..9342e9e 100644
--- a/windows/neo-vars/neo20-vars.ahk
+++ b/windows/neo-vars/neo20-vars.ahk
@@ -342,6 +342,62 @@ CharProc(subroutine) {
     }
     EHKeyPressed := 0
     EHSpacePressed := 0
+  } else if (subroutine == "_LMt") {
+    ; Lernmodus togglen
+    lernModus := !(lernModus)
+    if (lernModus) {
+      CharProc("_LM1")
+      MsgBox,Willkommen im NEO-Lernmodus! Zum Deaktivieren, Mod3+F11 drücken
+    } else {
+      CharProc("_LM0")
+      MsgBox,NEO-Lernmodus deaktiviert
+    }
+  } else if (subroutine == "_LM1") {
+    ; Lernmodus aktivieren
+    if (!lernModus_std_Return)
+      ED1("enter","")
+    if (!lernModus_std_Backspace)
+      ED1("backspace","")
+    if (!lernModus_std_PgUp)
+      ED1("pgup","")
+    if (!lernModus_std_PgDn)
+      ED1("pgdn","")
+    if (!lernModus_std_Einf)
+      ED1("ins","")
+    if (!lernModus_std_Entf)
+      ED1("del","")
+    if (!lernModus_std_Pos0)
+      ED1("home","")
+    if (!lernModus_std_Ende)
+      ED1("end","")
+    if (!lernModus_std_Hoch)
+      ED1("up","")
+    if (!lernModus_std_Runter)
+      ED1("down","")
+    if (!lernModus_std_Links)
+      ED1("left","")
+    if (!lernModus_std_Rechts)
+      ED1("right","")
+    if (!lernModus_neo_Backspace)
+      CP4VK57SC011 := "" ; Ebene 4 unter v (QWERTZ: w)
+    if (!lernModus_neo_Entf)
+      CP4VK52SC013 := "" ; Ebene 4 unter c (QWERTZ: r)
+  } else if (subroutine == "_LM0") {
+    ; Lernmodus deaktivieren
+    ED1("enter"    ,"U000D")
+    ED1("backspace","U0008")
+    ED1("pgup"     ,"SPgUp")
+    ED1("pgdn"     ,"SPgDn")
+    ED1("ins"      ,"S_Ins")
+    ED1("del"      ,"S_Del")
+    ED1("home"     ,"SHome")
+    ED1("end"      ,"S_End")
+    ED1("up"       ,"S__Up")
+    ED1("down"     ,"SDown")
+    ED1("left"     ,"SLeft")
+    ED1("right"    ,"SRght")
+    CP4VK57SC011 := "U0008"
+    CP4VK52SC013 := "S_Del"
   }
 }
 
-- 
cgit v1.2.3