From b78b1fd09acd67ad7e344b27fb4a62f00131dc2c Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Tue, 11 Nov 2008 16:46:18 +0000
Subject: Compose,d,d decodiert nun das nächste ausgegebenen Zeichen, nicht die
 gedrückte Taste. Die ausgabe erfolgt derzeit exklusiv im praktischen TrayTip.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1169 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/Source/varsfunctions.ahk | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

(limited to 'windows/neo-vars/src/Source')

diff --git a/windows/neo-vars/src/Source/varsfunctions.ahk b/windows/neo-vars/src/Source/varsfunctions.ahk
index c8c00d3..ddf9bf7 100644
--- a/windows/neo-vars/src/Source/varsfunctions.ahk
+++ b/windows/neo-vars/src/Source/varsfunctions.ahk
@@ -108,6 +108,10 @@ CharStarUp(PhysKey) {
 
 CharOut(char) {
   global
+  if (DecodeUnicodeNext == 1) {
+    DecodeUnicodeNext := 0
+    TrayTip,Unicode-Zeichen,%char%,10,1
+  }
   if (DNCS%char% != "")
     SendBlindShiftFixed(DNCS%char% . UPCS%char%)
   else if (CS%char% != "")
@@ -118,6 +122,10 @@ CharOut(char) {
 
 CharOutDown(char) {
   global
+  if (DecodeUnicodeNext == 1) {
+    DecodeUnicodeNext := 0
+    TrayTip,Unicode-Zeichen,%char%,10,1
+  }
   if (DNCS%char% != "")
     SendBlindShiftFixed(DNCS%char%)
   else if (CS%char% != "")
@@ -173,8 +181,7 @@ CharProc(subroutine) {
     UniSum := ""
   } else if (subroutine == "DUni") {
     ; starte Unicode-Zeichen-in-Hex-Umwandlung
-    IsPressHooked := 1
-    PressHookRoutine := "DUni"
+    DecodeUnicodeNext := 1
   }  else if (subroutine == "Rlod") {
     ; Neustart des AHK-Skripts
     reload
@@ -507,15 +514,6 @@ PressHookProc(HookRoutine, PhysKey, ActKey, Char) {
       IsPressHooked := 0
     } else
       IsPressHooked := 0
-  } else if (HookRoutine == "DUni") {
-    OutStr := EncodeUni(Char)
-    loop {
-      if (OutStr == "") 
-        break ; erledigt
-      CharOut(SubStr(OutStr,1,5))
-      OutStr := SubStr(OutStr,6)
-    }
-    IsPressHooked := 0
   } else
     IsPressHooked := 0
 }
-- 
cgit v1.2.3