From 87b89eb7f9db5d720ff18669a89290b76c8d26c7 Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Tue, 12 May 2009 19:31:19 +0000
Subject: Aufräumarbeiten: Ein paar Gosub-Style-Unterprogramme in Funktionen
 umgewandelt. Dadurch unnötig gewordene Quelldateien entfernt.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1839 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/tray.ahk | 117 +++++++++++++++++++++++++++++------
 1 file changed, 98 insertions(+), 19 deletions(-)

(limited to 'windows/neo-vars/src/source/tray.ahk')

diff --git a/windows/neo-vars/src/source/tray.ahk b/windows/neo-vars/src/source/tray.ahk
index db9186c..3eb327c 100644
--- a/windows/neo-vars/src/source/tray.ahk
+++ b/windows/neo-vars/src/source/tray.ahk
@@ -1,20 +1,99 @@
-menu,tray,icon,%ResourceFolder%\neo_enabled.ico,,1
-menu,tray,nostandard
-menu,tray,add,Öffnen,open
-  menu,helpmenu,add,About,about
-  menu,helpmenu,add,Autohotkey-Hilfe,help
-  menu,helpmenu,add
-  menu,helpmenu,add,http://autohotkey.com/,autohotkey
-  menu,helpmenu,add,http://www.neo-layout.org/,neo
-menu,tray,add,Hilfe,:helpmenu
-menu,tray,add
-menu,tray,add,%disable%,togglesuspend
-menu,tray,add
-menu,tray,add,Bearbeiten,edit
-menu,tray,add,Neu Laden,reload
-menu,tray,add
-menu,tray,add,Nicht im Systray anzeigen,hide
-menu,tray,add,%name% beenden, exitprogram
-menu,tray,default,%disable%
-menu,tray,tip,%name%
+TrayAktivieren() {
+  global
+  menu,tray,icon,%ResourceFolder%\neo_enabled.ico,,1
+  menu,tray,nostandard
+  menu,tray,add,Öffnen,open
+    menu,helpmenu,add,About,about
+    menu,helpmenu,add,Autohotkey-Hilfe,help
+    menu,helpmenu,add
+    menu,helpmenu,add,http://autohotkey.com/,autohotkey
+    menu,helpmenu,add,http://www.neo-layout.org/,neo
+  menu,tray,add,Hilfe,:helpmenu
+  menu,tray,add
+  menu,tray,add,%disable%,togglesuspend
+  menu,tray,add
+  menu,tray,add,Bearbeiten,edit
+  menu,tray,add,Neu Laden,reload
+  menu,tray,add
+  menu,tray,add,Nicht im Systray anzeigen,hide
+  menu,tray,add,%name% beenden, exitprogram
+  menu,tray,default,%disable%
+  menu,tray,tip,%name%
 
+  return
+
+help:
+  Run, %A_WinDir%\hh mk:@MSITStore:autohotkey.chm
+return
+
+togglesuspend:
+  Traytogglesuspend()
+return
+
+about:
+  msgbox, 64, %name%  Ergonomische Tastaturbelegung, 
+  (
+  %name% 
+  `nDas Neo-Layout ersetzt das übliche deutsche 
+  Tastaturlayout mit der Alternative Neo, 
+  beschrieben auf http://neo-layout.org/. 
+  `nDazu sind keine Administratorrechte nötig. 
+  `nWenn Autohotkey aktiviert ist, werden alle Tastendrucke 
+  abgefangen und statt dessen eine Übersetzung weitergeschickt. 
+  `nDies geschieht transparent für den Anwender, 
+  es muss nichts installiert werden. 
+  `nDie Zeichenübersetzung kann leicht über das Icon im 
+  Systemtray deaktiviert werden.  `n
+  )
+return
+
+neo:
+  run http://neo-layout.org/
+return
+
+autohotkey:
+  run http://autohotkey.com/
+return
+
+open:
+  ListLines ; shows the Autohotkey window
+return
+
+edit:
+  edit
+return
+
+reload:
+  Reload
+return
+
+hide:
+  menu, tray, noicon
+return
+
+exitprogram:
+  SetNumLockState, %SavedNumLockState%
+  exitapp
+return
+
+}
+
+Traytogglesuspend() {
+  global
+  if A_IsSuspended {
+    menu, tray, rename, %enable%, %disable%
+    menu, tray, tip, %name%
+    menu, tray, icon, %ResourceFolder%\neo_enabled.ico,,1
+    SaveNumLockState()
+    SetNumLockState Off
+    suspend, off ; Schaltet Suspend aus -> NEO
+  } else {
+    menu, tray, rename, %disable%, %enable%
+    menu, tray, tip, %name% : Deaktiviert
+    menu, tray, icon, %ResourceFolder%\neo_disabled.ico,,1
+    SetNumLockState, %SavedNumLockState%
+    suspend, on  ; Schaltet Suspend ein -> QWERTZ
+  }
+}
+
+TrayAktivieren()
-- 
cgit v1.2.3