langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Keyboard-macros/PureBasic/keyboard-macros.purebasic
+++ b/Task/Keyboard-macros/PureBasic/keyboard-macros.purebasic
@ -0,0 +1,26 @@
+#Win   = 0
+#Demo1 = 0
+#Demo2 = 1
+
+If OpenWindow(#Win,50,50,200,60,"PureBasic",#PB_Window_SystemMenu)
+  ;
+  AddKeyboardShortcut(#Win,#PB_Shortcut_F1, #Demo1)
+  AddKeyboardShortcut(#Win,#PB_Shortcut_F|#PB_Shortcut_Alt, #Demo2)
+  ;
+  Repeat
+    WEvent = WaitWindowEvent()
+    Select  WEvent
+      Case #PB_Event_Menu
+        Select EventMenu()
+          Case #Demo1
+            MessageRequester("Info", "You Pressed F1")
+
+          Case #Demo2
+            MessageRequester("Info", "You Pressed Alt-F")
+
+        EndSelect
+      Case #PB_Event_CloseWindow
+        Break
+    EndSelect
+  ForEver
+EndIf