Vorhang auf für NordTast auf M3+F12!

git-svn-id: https://svn.neo-layout.org@2303 b9310e46-f624-0410-8ea1-cfbb3a30dc96

windows/neo-vars/src/neo20-all.ahk

@@ -33,6 +33,7 @@ SetWorkingDir, %A_ScriptDir%
 #include    source\langstastatur.ahk
 #include    source\einhandneo.ahk
 #include    source\lernmodus.ahk
+#include    source\nordtast.ahk
 #include    source\tools.ahk
 
 ; individuelle Einstellungen

windows/neo-vars/src/source/nordtast.ahk

@@ -0,0 +1,109 @@
+; -*- encoding:utf-8 -*-
+; NordTast. Belegung von Ulf Bro, http://www.nordtast.org/
+; (c) 2010 Matthias Wächter
+
+
+CharProcNordTt() {
+  global
+  ; Custom Layout togglen
+  isNordTast := !(isNordTast)
+  if (isNordTast) {
+    CharProcNordT1()
+    if (zeigeModusBox)
+      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F12 druecken.,10,1
+  } else {
+    CharProcNordT0()
+    if (zeigeModusBox)
+      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante wurde deaktiviert.,10,1
+  }
+}
+
+CharProcNordT1() {
+  global
+  ; Tastaturbelegungsvariante aktivieren
+  ED12("010",1,"ä","Ä")
+  ED12("011",1,"u","U")
+  ED12("012",1,"o","O")
+  ED12("013",1,"b","B")
+  ED12("014",1,"p","P")
+  ED12("015",1,"k","K")
+  ED12("016",1,"g","G")
+  ED12("017",1,"l","L")
+  ED12("018",1,"m","M")
+  ED12("019",1,"f","F")
+  ED12("01A",1,"x","X")
+
+  ED12("01E",1,"a","A")
+  ED12("01F",1,"i","I")
+  ED12("020",1,"e","E")
+  ED12("021",1,"t","T")
+  ED12("022",1,"c","C")
+  ED12("023",1,"h","H")
+  ED12("024",1,"d","D")
+  ED12("025",1,"n","N")
+  ED12("026",1,"r","R")
+  ED12("027",1,"s","S")
+  ED12("028",1,"ß","ẞ")
+
+  ED12("02C",0,".","•")
+  ED12("02D",0,",","–")
+  ED12("02E",1,"ü","Ü")
+  ED12("02F",1,"ö","Ö")
+  ED12("030",1,"q","Q")
+  ED12("031",1,"y","Y")
+  ED12("032",1,"z","Z")
+  ED12("033",1,"w","W")
+  ED12("034",1,"v","V")
+  ED12("035",1,"j","J")
+}
+
+CharProcNordT0() {
+  global
+  ; Tastaturbelegungsvariante deaktivieren
+  ED12("010",1,"x","X")
+  ED12("011",1,"v","V")
+  ED12("012",1,"l","L")
+  ED12("013",1,"c","C")
+  ED12("014",1,"w","W")
+  ED12("015",1,"k","K")
+  ED12("016",1,"h","H")
+  ED12("017",1,"g","G")
+  ED12("018",1,"f","F")
+  ED12("019",1,"q","Q")
+  ED12("01A",1,"ß","ẞ")
+
+  ED12("01E",1,"u","U")
+  ED12("01F",1,"i","I")
+  ED12("020",1,"a","A")
+  ED12("021",1,"e","E")
+  ED12("022",1,"o","O")
+  ED12("023",1,"s","S")
+  ED12("024",1,"n","N")
+  ED12("025",1,"r","R")
+  ED12("026",1,"t","T")
+  ED12("027",1,"d","D")
+  ED12("028",1,"y","Y")
+
+  ED12("02C",1,"ü","Ü")
+  ED12("02D",1,"ö","Ö")
+  ED12("02E",1,"ä","Ä")
+  ED12("02F",1,"p","P")
+  ED12("030",1,"z","Z")
+  ED12("031",1,"b","B")
+  ED12("032",1,"m","M")
+  ED12("033",0,",","–")
+  ED12("034",0,".","•")
+  ED12("035",1,"j","J")
+}
+
+ActivateNordTast() {
+  global
+
+  CP3F12  := "PNordTt"                   ; M3+F12: Aktiviere/Deaktiviere NordTast
+
+  IniRead,isNordTast,%ini%,Global,isNordTast,0
+  if (isNordTast)
+    CharProcNordT1()
+}
+
+ActivateNordTast()

windows/neo-vars/src/source/tray.ahk

@@ -7,6 +7,7 @@ TrayAktivieren() {
     menu,helpmenu,add,Autohotkey-Hilfe,help
     menu,helpmenu,add
     menu,helpmenu,add,http://autohotkey.com/,autohotkey
+    menu,helpmenu,add,http://www.nordtast.org/,nordtast
     menu,helpmenu,add,http://www.neo-layout.org/,neo
   menu,tray,add,Hilfe,:helpmenu
   menu,tray,add
@@ -38,6 +39,10 @@ neo:
   run http://neo-layout.org/
 return
 
+nordtast:
+  run http://www.nordtast.org/
+return
+
 autohotkey:
   run http://autohotkey.com/
 return