canvas lost focus

[mestnyi]

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

[infratec]

Don't you need

Code: Select all

#PB_Canvas_Keyboard

for keyboard stuff?

[BarryG]

What if he's changing the focus to another gadget by clicking with the mouse?

[mestnyi]

Don't you need

Code: Select all

#PB_Canvas_Keyboard

for keyboard stuff?

Maybe it should, but that's not the point.
The point is that in Mac OS, an infinite loop starts, whereas in Windows, there is no such thing.

[mestnyi]

What if he's changing the focus to another gadget by clicking with the mouse?

My problem is visible immediately after compiling the code.

[Piero]

seems like SetActiveGadget( -1 ) ALWAYS triggers lost focus

Code: Select all

Procedure lostfocus( )
  Debug "lostfocus"
  ;SetActiveGadget( -1 )
EndProcedure