Workaround: Disabling Menus In Cocoa Dialogs

[Stephen_Dodd]

In Cocoa, Modal Dialogs no longer disable menu items. See <https://xojo.com/issue/28700>

This could cause problems of code running when you are expecting your app to be in a modal state.

Just thought I’d share this rough workaround that will disable all menus, except File-Quit/Exit if a modal dialog is up.

Sub app.enableMenuItems()

dim frontMostWindow as Window = window(0)
if frontMostWindow <> nil and (frontMostWindow.Frame = window.FrameTypeModal or frontMostWindow.Frame = window.FrameTypeMovableModal) then
dim numberOfTopLevelMenus as Integer = menubar1.Count
dim i, j as integer
dim topMenuItem, subMenuItem as MenuItem
for i = 0 to numberOfTopLevelMenus -1
topMenuItem = menubar1.Item(i)
for j = 0 to topMenuItem.count -1
subMenuItem = topMenuItem.item(j)
if subMenuItem <> nil and subMenuItem.Name <> “FileQuit” then
subMenuItem.Enabled = false
end if
next
next
end if

[Kem_Tekinay]

You should exclude Undo, Cut, Copy, and Paste too.

[DaveS]

To me… a safer bet (and it works x-platform too)… is create a “dummy looking menu” and assign it to all your dialog boxes

That way it is all handled automatically for you.