canvas lost focus
Posted: Thu Oct 02, 2025 8:48 am
in mac os is this bug?
Code: Select all
Procedure lostfocus( )
Debug "lostfocus"
SetActiveGadget( - 1 )
EndProcedure
OpenWindow(1, 0, 0, 320, 400, "bug", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(1, 10, 10, 300, 300, #PB_Canvas_DrawFocus )
BindGadgetEvent(1, @lostfocus( ), #PB_EventType_LostFocus)
SetActiveGadget(1)
SetActiveGadget( - 1 )
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow