-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathAutofocusAHK-tray.ahk
65 lines (48 loc) · 1.52 KB
/
AutofocusAHK-tray.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
; AutofocusAHK
;
; Sets up the menu you get if you right-click the tray icon.
;
; @author Andreas Hofmann
; @license See LICENSE.txt
; @version 0.9.5.4
; @since 0.9
SetupTrayMenu()
{
WriteToLog("Function", "Begin SetupTrayMenu()", 1)
;; MENU CONSTRUCTION
; Remove AutoHotkey standard menu items
menu, tray, NoStandard
menu, tray, add, Add Task, AddTask
menu, tray, add, Show Next Tasks, ShowNextTasks
menu, tray, add, Work
; Add a separator
menu, tray, add
menu, tray, add, Preferences
; Add About/Help menu item
menu, tray, add, About/Help, About
; Add a separator
menu, tray, add
; Add Exit menu item
menu, tray, add, Exit
; Make Add Task the default (if tray icon is double-clicked)
menu, tray, default, About/Help
WriteToLog("Function", "End SetupTrayMenu()", -1)
}
AddTask:
ShowAddTaskWindow()
Return
ShowNextTasks:
ShowNextTasks()
Return
Work:
Work()
Return
About:
MsgBox, ,%ApplicationName% %Ver%, CapsLock + a%A_Tab%Add task`nCapsLock + s%A_Tab%Show next tasks`nCapsLock + d%A_Tab%Start/Stop work`nCapsLock + f%A_Tab%Find task`nCapsLock + e%A_Tab%Create HTML Export`nCapsLock + p%A_Tab%Show preferences`nCapsLock + r%A_Tab%Reload tasks list`nCapsLock + q%A_Tab%Quit application`n`nAutofocus Time Management System`nDay/Week/Month Time Management System`nCopyright (C) 2009-2010 Mark Forster`nhttp://markforster.net`n`n%ApplicationName%`nCopyright (C) 2009-2010 Andreas Hofmann`nhttp://andreashofmann.net
Return
Preferences:
ShowPreferences()
Return
Exit:
ExitApp, 0
Return