mouse leave from parent

[mestnyi]

When we hide a button and hover over its coordinate, a mouse exit event occurs.

Code: Select all

If OpenWindow(0, 100, 200, 495, 360, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
 gadget1 = CanvasGadget(#PB_Any, 100, 100, 250, 200, #PB_Canvas_Container ) 
 gadget2 = ButtonGadget(#PB_Any, 10, 10, 230, 180, "") 
 
 ; uncomment to see
 ;HideGadget(gadget2, 1)
           
  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_Gadget
       If gadget1 = EventGadget()
          Select EventType()
             Case #PB_EventType_MouseLeave
                Debug "leave "
          EndSelect
       EndIf
    EndIf
    
    If Event = #PB_Event_CloseWindow 
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End  

[ChrisR]

I didn't realize it was for MacOS!
Not on Windows, under Windows, no exit event is received when hovering over a hidden button.

Code: Select all

If OpenWindow(0, 100, 200, 495, 360, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
 gadget1 = CanvasGadget(#PB_Any, 100, 100, 250, 200, #PB_Canvas_Container ) : Debug  "Canvas: " + gadget1
 gadget2 = ButtonGadget(#PB_Any, 40, 40, 170, 120, "") : Debug  "Button: " + gadget2
 
 ; uncomment to see
 ;HideGadget(gadget2, 1)
           
  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_Gadget
       ;If gadget1 = EventGadget()
          Select EventType()
             Case #PB_EventType_MouseLeave
                Debug "leave " + EventGadget()
          EndSelect
       ;EndIf
    EndIf
    
    If Event = #PB_Event_CloseWindow 
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

[mestnyi]

Yes, that's right, it works well in Windows.