I using Linux, Ubuntu 16.04 and PB 5.61 x64.
Does anyone spot something wrong with my code and what is the result on Windows?
Code: Select all
EnableExplicit
Define ww, wh, win, style
ww=800
wh=600
style | #PB_Window_ScreenCentered
style | #PB_Window_SystemMenu
style | #PB_Window_MinimizeGadget
win = OpenWindow(#PB_Any, 50,100, ww,wh, "", style)
AddKeyboardShortcut(win, #PB_Shortcut_Escape, 10)
Define canvas = CanvasGadget(#PB_Any, 0, 0, ww, wh)
Define event, em, eg, et, quit
Define canvasLeftButtonDown, canvasRightButtonDown
Repeat
; ...
Repeat
event = WindowEvent()
em = EventMenu()
eg = EventGadget()
et = EventType()
Select event
Case #PB_Event_CloseWindow
quit = #True
Case #PB_Event_Menu
Select em
Case 10
quit = #True
EndSelect
Case #PB_Event_Gadget
Debug "gadget event"
If et = #PB_EventType_LeftButtonDown
Debug " left down"
EndIf
If et = #PB_EventType_LeftButtonUp
Debug " left up"
EndIf
If et = #PB_EventType_LeftClick
Debug " left click"
EndIf
canvasLeftButtonDown = GetGadgetAttribute(canvas, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton
Debug " down: " + canvasLeftButtonDown
EndSelect
Until Not event
; ...
Until quit