From 592cb722ce992b27e6fc9f3276b22c38620a4c95 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?m=C3=B6si?= <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Tue, 18 Nov 2008 13:08:53 +0000
Subject: =?UTF-8?q?Unshift-Konstanten=20f=C3=BCr=20alle=20relevanten=20Zei?=
 =?UTF-8?q?chen=20in=20Ordnung=20gebracht.=20Es=20sollte=20nun=20beispiels?=
 =?UTF-8?q?weise=20f=C3=BCr=20alle=20Tasten/Zeichen=20m=C3=B6glich=20sein,?=
 =?UTF-8?q?=20eine=20Compose-Unicode-Sequenz=20mit=20Shift+Space=20bzw.=20?=
 =?UTF-8?q?Shift+Enter=20oder=20bei=20gedr=C3=BCcktem=20CapsLock=20abzusch?=
 =?UTF-8?q?lie=C3=9Fen,=20z.B.=20f=C3=BCr=20ein=20kleines=20=C2=BBa=C2=AB:?=
 =?UTF-8?q?=20=E2=99=AB,u,u,6,1,Shift+Space?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1217 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/shortcuts.ahk     | 74 ++++++++++++++++++++++++++-
 windows/neo-vars/src/source/varsfunctions.ahk | 14 ++---
 2 files changed, 79 insertions(+), 9 deletions(-)

diff --git a/windows/neo-vars/src/source/shortcuts.ahk b/windows/neo-vars/src/source/shortcuts.ahk
index e9a4027..f8656bd 100644
--- a/windows/neo-vars/src/source/shortcuts.ahk
+++ b/windows/neo-vars/src/source/shortcuts.ahk
@@ -37,7 +37,6 @@ DNCSU005E := "{^}{space}"
 DNCSU0060 := "{``}{space}"
 DNCSU007D := "{}}"                 ; "{} down}" geht nicht, warum auch immer
 DNCSU00B4 := "{´}{space}"
-UNSHU00B4 := 1
 
 /**** die meisten der folgenden Shortcuts werden von AHK zwar verarbeitet,
  **** von dort aber nur als ALT+Numpad verschickt und daher nicht für alle
@@ -45,7 +44,6 @@ UNSHU00B4 := 1
  **** geschickt.
 */
 CSU20AC := chr(128)   ; €
-UNSHU20AC := 1
 ; CSU201A := chr(130) ; ‚
 ; CSU0192 := chr(131) ; ƒ
 ; CSU201E := chr(132) ; „
@@ -136,3 +134,75 @@ CSSNPDn := "NumpadPgDn"
 CSSNHom := "NumpadHome"
 CSSNEnd := "NumpadEnd"
 CSSNClr := "NumpadClear"
+
+
+/*
+  Für alle Zeichen, die durch Tastendrücke ohne Shift-Taste zustande kommen,
+  muss eine gegebenenfalls gedrückte Shift-Taste vor dem Senden temporär
+  gelöst werden. Dafür werden für sämtliche relevante Zeichen die passenden
+  UNSHU.... Variablen gesetzt.
+*/
+; Reihe 1
+UNSHU005E := 1 ; ^
+UNSHU0031 := 1 ; 1
+UNSHU0032 := 1 ; 2
+UNSHU0033 := 1 ; 3
+UNSHU0034 := 1 ; 4
+UNSHU0035 := 1 ; 5
+UNSHU0036 := 1 ; 6
+UNSHU0037 := 1 ; 7
+UNSHU0038 := 1 ; 8
+UNSHU0039 := 1 ; 9
+UNSHU0030 := 1 ; 0
+UNSHU00DF := 1 ; ß
+UNSHU00B4 := 1 ; ´
+; Alphabet
+UNSHU0061 := 1 ; a
+UNSHU0062 := 1 ; b
+UNSHU0063 := 1 ; c
+UNSHU0064 := 1 ; d
+UNSHU0065 := 1 ; e
+UNSHU0066 := 1 ; f
+UNSHU0067 := 1 ; g
+UNSHU0068 := 1 ; h
+UNSHU0069 := 1 ; i
+UNSHU006A := 1 ; j
+UNSHU006B := 1 ; k
+UNSHU006C := 1 ; l
+UNSHU006D := 1 ; m
+UNSHU006E := 1 ; n
+UNSHU006F := 1 ; o
+UNSHU0070 := 1 ; p
+UNSHU0071 := 1 ; q
+UNSHU0072 := 1 ; r
+UNSHU0073 := 1 ; s
+UNSHU0074 := 1 ; t
+UNSHU0075 := 1 ; u
+UNSHU0076 := 1 ; v
+UNSHU0077 := 1 ; w
+UNSHU0078 := 1 ; x
+UNSHU0079 := 1 ; y
+UNSHU007A := 1 ; z
+UNSHU00E4 := 1 ; ä
+UNSHU00F6 := 1 ; ö
+UNSHU00FC := 1 ; ü
+; Rest
+UNSHU002B := 1 ; +
+UNSHU0023 := 1 ; #
+UNSHU003C := 1 ; <
+UNSHU002C := 1 ; ,
+UNSHU002E := 1 ; .
+UNSHU002D := 1 ; -
+; AltGr
+UNSHU00B2 := 1 ; ²
+UNSHU00B3 := 1 ; ³
+UNSHU007B := 1 ; {
+UNSHU005B := 1 ; [
+UNSHU005D := 1 ; ]
+UNSHU007D := 1 ; }
+UNSHU005C := 1 ; \
+UNSHU0040 := 1 ; @
+UNSHU20AC := 1 ; Euro
+UNSHU007E := 1 ; ~
+UNSHU007C := 1 ; |
+UNSHU00B5 := 1 ; µ
diff --git a/windows/neo-vars/src/source/varsfunctions.ahk b/windows/neo-vars/src/source/varsfunctions.ahk
index 2a42c76..4fe1195 100644
--- a/windows/neo-vars/src/source/varsfunctions.ahk
+++ b/windows/neo-vars/src/source/varsfunctions.ahk
@@ -115,9 +115,9 @@ CharOut(char) {
     TrayTip,Unicode-Zeichen,%char%,10,1
   }
   if (DNCS%char% != "")
-    SendBlindShiftFixed(DNCS%char% . UPCS%char%)
+    SendBlindShiftFixed(char, DNCS%char% . UPCS%char%)
   else if (CS%char% != "")
-    SendBlindShiftFixed("{" . CS%char% . "}")
+    SendBlindShiftFixed(char, "{" . CS%char% . "}")
   else
     SendUnicodeChar("0x" . SubStr(char,2))
 }
@@ -129,9 +129,9 @@ CharOutDown(char) {
     TrayTip,Unicode-Zeichen,%char%,10,1
   }
   if (DNCS%char% != "")
-    SendBlindShiftFixed(DNCS%char%)
+    SendBlindShiftFixed(char, DNCS%char%)
   else if (CS%char% != "")
-    SendBlindShiftFixed("{" . CS%char% . " down}")
+    SendBlindShiftFixed(char, "{" . CS%char% . " down}")
   else
     SendUnicodeCharDown("0x" . SubStr(char,2))
 }
@@ -140,14 +140,14 @@ CharOutUp(char) {
   global
   if (DNCS%char% != "") {
     if (UPCS%char% != "")
-      SendBlindShiftFixed(UPCS%char%)
+      SendBlindShiftFixed(char, UPCS%char%)
   } else if (CS%char% != "")
-    SendBlindShiftFixed("{" . CS%char% . " up}")
+    SendBlindShiftFixed(char, "{" . CS%char% . " up}")
   else
     SendUnicodeCharUp("0x" . SubStr(char,2))
 }
 
-SendBlindShiftFixed(theseq) {
+SendBlindShiftFixed(char, theseq) {
   global
   if (UNSH%char%)
     if (IsShiftLPressed)
-- 
cgit v1.2.3