A way to check if a menu was dismissed with no items selected

[nsstudios]

Hi,

It would be really useful if there was a way to catch menu dismiss event.
Maybe EventMenu could get a special negative number event if the menu got closed (with escape or otherwise), but no items were selected?
I don't know what PB uses under the hood, but (at least on Windows), by using CreatePopupMenu_(), AppendMenu_(), and TrackPopupMenuEx with #TPM_RETURNCMD, I can get 0 as return from TrackPopupMenu, and by checking GetLastError_()=0 to make sure that doesn't mean there was an error, I can be sure that no items were selected and that the menu was dismissed.
This would be really useful for triggering different conditions based on if the menu was just dismissed or an item was actually selected, which isn't currently possible without using OS-specific API's unless I'm missing something.

[BarryG]

Maybe I'm missing the point, but #PB_Event_Menu will never be triggered if a menu item isn't selected. So you don't need to do anything unless a menu item is actually selected and causes that event trigger?

[AZJIO]

Try using flags
The menu closing event arrives before the item event arrives

Code: Select all

EnableExplicit

#Window = 0
Enumeration
    #Menu
    #PopupMenu
EndEnumeration

Global flag


Procedure WinCallback(hWnd, Msg, wParam, lParam)
    Select Msg
    	Case #WM_ENTERMENULOOP
    		flag + 1
            If wParam
                Debug "Context menu open"
            Else
                Debug "Main menu open"
            EndIf
        Case #WM_EXITMENULOOP
        	;         	If flag
			;             EndIf
        	flag -1
        	Debug flag
        	If wParam
                Debug "Context menu closed"
            Else
                Debug "Main menu is closed"
            EndIf
    EndSelect
    ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

Procedure EventsPopupMenu()
    DisplayPopupMenu(#PopupMenu, WindowID(#Window))
EndProcedure


If OpenWindow(#Window, 0, 0, 320, 240, "Menu", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateMenu(#Menu, WindowID(#Window))
        MenuTitle("File")
        MenuItem(1, "New")
    EndIf

    If CreatePopupMenu(#PopupMenu)
        MenuItem(2, "Copy")
    EndIf
    SetWindowCallback(@WinCallback())
    BindEvent(#PB_Event_RightClick, @EventsPopupMenu())
    
	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_Menu
				Select EventMenu()
					Case 1
						flag + 1
					Case 2
						flag + 1
				EndSelect
			Case #PB_Event_CloseWindow
				CloseWindow(0)
				End
		EndSelect
	ForEver
EndIf

[nsstudios]

Maybe I'm missing the point, but #PB_Event_Menu will never be triggered if a menu item isn't selected....

Maybe I was unclear, but that's exactly my problem. Say I wanted to play menu open and menu close sounds. I currently don't get any kind of event when a menu closes and no item was selected, so I couldn't do that.

@AZJIO Haven't thought of that. Thanks.

I currently use TrackPopupMenu_() but would be nice to have an x-platform built-in way to handle this.

Code: Select all

EnableExplicit
OpenWindow(0, #PB_Ignore, #PB_Ignore, #PB_Ignore, #PB_Ignore, "test", #PB_Window_ScreenCentered|#PB_Window_Maximize)
;Define menu=CreatePopupMenu_()
;AppendMenu_(menu, #MF_STRING, 1, "0")
;AppendMenu_(menu, #MF_STRING, 2, "1")
CreatePopupMenu(0)
MenuItem(1, "0")
MenuItem(2, "1")
#TPM_VERPOSANIMATION=$1000: #TPM_VERNEGANIMATION=$2000: #TPM_HORPOSANIMATION=$0400: #TPM_HORNEGANIMATION=$0800
Define menuAlign=Bool(GetSystemMetrics_(#SM_MENUDROPALIGNMENT))
Define aln.point\x=(menuAlign*#TPM_RIGHTALIGN)+((menuAlign!1)*#TPM_LEFTALIGN)
aln\y=(menuAlign*#TPM_HORNEGANIMATION)+((menuAlign!1)*#TPM_HORPOSANIMATION)
Define menu=MenuID(0)
Define selected=TrackPopupMenuEx_(menu, #TPM_RETURNCMD|#TPM_LEFTBUTTON|aln\x|#TPM_VCENTERALIGN|aln\y|#TPM_HORIZONTAL|#TPM_VERNEGANIMATION, 0, 0, WindowID(0), 0)
If GetLastError_()=0
 PostEvent(#PB_Event_Menu, 0, (Bool(selected=0)*-1000)+(Bool(selected>0)*selected))
EndIf

Repeat
 Define e=WaitWindowEvent(1)
 If e=#PB_Event_Menu
  Define em=EventMenu()
  If em=-1000
   Debug "dismissed"
  ElseIf em>0
   Debug "selected "+em
  EndIf
 EndIf
Until e=#PB_Event_CloseWindow

[BarryG]

Say I wanted to play menu open and menu close sounds. I currently don't get any kind of event when a menu closes and no item was selected, so I couldn't do that.

Well you didn't mention that specific use case in your original post, so how was I to know? We're coders here; be specific.

AZJIO's answer is close to what you want, but it doesn't show the "Closed" message if the Esc key is hit after the menu is open.