From 33a4bd55f46d69520b7fab5470bf497c82a8d1ba Mon Sep 17 00:00:00 2001
From: martin_r <martin_r@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Fri, 29 Aug 2008 23:42:38 +0000
Subject: AHK: Changelog und Kompilate nachgereicht.

git-svn-id: https://svn.neo-layout.org@831 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/autohotkey/Changelog-and-Todo.txt |   4 ++++
 windows/autohotkey/neo20.ahk              |  21 ++++++++++++---------
 windows/autohotkey/neo20.exe              | Bin 423973 -> 424021 bytes
 3 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/windows/autohotkey/Changelog-and-Todo.txt b/windows/autohotkey/Changelog-and-Todo.txt
index c0bb0d4..1a195c4 100644
--- a/windows/autohotkey/Changelog-and-Todo.txt
+++ b/windows/autohotkey/Changelog-and-Todo.txt
@@ -23,6 +23,10 @@ Matthias Wächter <matthias (at) waechter.wiz. a t>
 
 === Änderungshistorie ===
 
+Revisionen 827-830 (von Martin Roppelt)
+- 2 Achtelnoten (Composesymbol) auf 3(4).
+- CapsLock-Bug Ⅱ.: CapsLock funktionierte nicht mehr, wenn eine Taste gedrückt wurde, auf die CapsLock nicht wirkt (Ziffernreihe/-block, Akzente, Punkt, Komma), da die Zeile »NoCaps = 0« in der isShiftPressed() nie ausgeführt wird.
+- CapsLock-Licht wird jetzt beim (Neu-)Laden des Treibers ausgeschaltet.
 Revision 820 (von Martin Roppelt)
 ‐ Weitere Cokos ergänzt: ›Ə‹, ›dž‹, ›Dž‹, ›DŽ‹, glyphengleiche griechische Majuskeln.
 ‐ Echter Bindestich durch Shift+Mod3+Zirkumflex, Leertaste.
diff --git a/windows/autohotkey/neo20.ahk b/windows/autohotkey/neo20.ahk
index 3d7c5d9..617ff4c 100644
--- a/windows/autohotkey/neo20.ahk
+++ b/windows/autohotkey/neo20.ahk
@@ -6,7 +6,7 @@ Dies ist inzwischen eine automatisch generierte
 Datei! Sie wird regelm��ig �berschrieben und
 sollte deshalb nicht mehr direkt bearbeitet werden!
 
-Alle weiterf�hrende Informationen finden sich im Abschnitt 
+Alle weiterf�hrenden Informationen finden sich im Abschnitt 
 == Hinweise f�r Entwickler ==
 in der Datei README.txt!
 
@@ -37,8 +37,8 @@ $HeadURL$
 
 
 *******************************************
-Das war die letzte WARNUNG, ich hoffe nur dass
-Sie wirklich wissen was Sie hier tun wollen ...
+Das war die letzte WARNUNG, ich hoffe nur, dass
+Sie wirklich wissen, was Sie hier tun wollen ...
 *******************************************
 */
 /******************
@@ -55,6 +55,7 @@ noCaps = 0
 EbeneAktualisieren()
 SetBatchLines -1
 SetCapsLockState Off
+KeyboardLED(4, "off")
 SetNumLockState Off
 SetScrollLockState Off
 
@@ -392,10 +393,10 @@ VKA0SC02A & VKA1SC136:: ; LShift, dann RShift
   if GetKeyState("VKA1SC136", "P") and GetKeyState("VKA0SC02A", "P") {
     if isMod2Locked {
       isMod2Locked = 0
-      KeyboardLED(4,"off")
+      KeyboardLED(4, "off")
     } else {
       isMod2Locked = 1
-      KeyBoardLED(4,"on")
+      KeyBoardLED(4, "on")
     }
   }
 return
@@ -404,7 +405,7 @@ return
 ;Auf Mod3+Mod3 liegt zus�tzlich zu Mod3+Tab Compose
 *VKBFSC02B:: ; #
 *VK14SC03A:: ; CapsLock
-  if (GetKeyState("VKBFSC02B", "P") and GetKeyState("VK14SC03A", "P")) {
+  if GetKeyState("VKBFSC02B", "P") and GetKeyState("VK14SC03A", "P") {
     DeadKey := "comp"
     CompKey := ""
   }
@@ -425,13 +426,13 @@ IsMod4Locked := 0
         MsgBox Mod4-Feststellung aufgebehoben!
        IsMod4Locked = 0
       if UseMod4Light
-        KeyboardLED(1,"off")
+        KeyboardLED(1, "off")
     } else {
       if zeigeLockBox
         MsgBox Mod4 festgestellt: Um Mod4 wieder zu l�sen, dr�cke beide Mod4-Tasten gleichzeitig!
       IsMod4Locked = 1
       if UseMod4Light
-        KeyboardLED(1,"on")
+        KeyboardLED(1, "on")
     }
   }
 return
@@ -443,6 +444,7 @@ EbeneAktualisieren() {
   DeadKey := ""
   CompKey := ""
   Modstate := IsMod4Pressed() . IsMod3Pressed() . IsShiftPressed()
+  noCaps := 0
   Ebene7 := 0
   Ebene8 := 0
   if      (Modstate = "000") ; Ebene 1: Ohne Mod
@@ -483,7 +485,6 @@ IsShiftPressed()
       return 1
     else
       return 0
-  noCaps = 0
 }
 
 IsMod3Pressed()
@@ -837,6 +838,8 @@ neo_3:
     checkComp(3)
   } else if (Ebene = 3)
     SendUnicodeChar(0x00B3) ; Hochgestellte 3
+  else if (Ebene = 4)
+    SendUnicodeChar(0x266B) ; 2 Achtelnoten
   else if (Ebene = 5)
     SendUnicodeChar(0x2642) ; Piktogramm Mann
   else if (Ebene = 6)
diff --git a/windows/autohotkey/neo20.exe b/windows/autohotkey/neo20.exe
index 03bbcc2..0035905 100644
Binary files a/windows/autohotkey/neo20.exe and b/windows/autohotkey/neo20.exe differ
-- 
cgit v1.2.3