PureBasic Forums - English

Posted: **Mon Oct 07, 2013 5:52 am**

Consider the following snippet:

Procedure callback1()
  Debug "Right-arrow key pressed"  
EndProcedure

OpenWindow(0,0,0,800,600,"Game",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)

CreatePopupMenu(0) ; dummy, we'll never add items to it or show it
                   ; it exists only to allow the use of BindMenuEvent

BindMenuEvent(0, 1, @callback1())

Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

Here it was necessary to create a dummy popupmenu to allow the use of BindMenuEvent with AddKeyboardShortcut. If we could write:

Code: Select all

BindMenuEvent(#PB_Shortcut, <event>, @<callback>)

then... well, you get the idea. Thanks for listening!

Posted: **Mon Oct 07, 2013 6:06 am**

+1

workaround:

Code: Select all

Procedure callback1()
  Debug "Right-arrow key pressed" 
EndProcedure

OpenWindow(0,0,0,800,600,"Game",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)

; CreatePopupMenu(0) ; dummy, we'll never add items to it or show it
;                    ; it exists only to allow the use of BindMenuEvent

;BindMenuEvent(0, 1, @callback1())
BindEvent(#PB_Event_Menu, @callback1(), 0, 1)

Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

Posted: **Mon Oct 07, 2013 7:55 am**

+1

@netmaestro - Nice workaround!

Posted: **Mon Oct 07, 2013 8:51 am**

ts-soft wrote:+1

workaround:

Doesn't look like a workaround. Keyboard Shortcuts just use Menu events.

Code: Select all

Procedure callback1()
  Debug "Right-arrow key pressed" 
EndProcedure

OpenWindow(0,0,0,800,600,"Game",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)
BindEvent(#PB_Event_Menu, @callback1(), 0, 1)

Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

PureBasic Forums - English

New constant #PB_Shortcut for BindMenuEvent

New constant #PB_Shortcut for BindMenuEvent

Re: New constant #PB_Shortcut for BindMenuEvent

Re: New constant #PB_Shortcut for BindMenuEvent

Re: New constant #PB_Shortcut for BindMenuEvent