1 files changed, 39 insertions, 0 deletions
diff --git a/windows/neo-vars/src/source/langstastatur.ahk b/windows/neo-vars/src/source/langstastatur.ahk
new file mode 100644
index 0000000..8d3a480
--- /dev/null
+++ b/windows/neo-vars/src/source/langstastatur.ahk
@@ -0,0 +1,39 @@
+IniRead,LangSTastatur,%ini%,Global,LangSTastatur,0
+If (LangSTastatur)
+  CharProcLnS1()
+
+CP3F11 := "PLnSt"
+
+CharProcLnSt() {
+  global
+  ;Lang-s-Tastatur: Toggle
+  LangSTastatur := !(LangSTastatur)
+  if (LangSTastatur) {
+    CharProcLnS1()
+    if (zeigeModusBox)
+      TrayTip,Lang-S-Tastatur,Die Lang-S-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
+  } else {
+    CharProcLnS0()
+    if (zeigeModusBox)
+      TrayTip,Lang-S-Tastatur,Lang-S-Belegungsvariante wurde deaktiviert.,10,1
+  }
+} 
+
+CharProcLnS1() {
+  global
+  ; Lange-s-Tastatur aktivieren
+  ED("VKBASC01A",1,"U0073","U1E9E","U00DF",""     ,"U03C2","U2218") ; ß
+  ED("VK48SC023",1,"U017F","U0053","U003F","U00BF","U03C3","U03A3") ; s
+  KeyboardLED(2,"on")
+}
+
+CharProcLnS0() {
+  global
+  ; Lange-s-Tastatur deaktivieren
+  ED("VKBASC01A",1,"U00DF","U1E9E","U017F",""     ,"U03C2","U2218") ; ß
+  ED("VK48SC023",1,"U0073","U0053","U003F","U00BF","U03C3","U03A3") ; s
+  KeyboardLED(2,"off")
+  if (zeigeModusBox)
+    TrayTip,Lange-s-Tastatur,Die Lange-s-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
+}
+