Contextual Menuitem.checked = true / false

Targets macOS
1

How can I update the checked state of a menu item after it was selected?

base.Append(New MenuItem(“Import”))
base.Append(New MenuItem(“Export”))
base.Append(New MenuItem(MenuItem.TextSeparator))

base.Append(New MenuItem(“Cut”))
base.Append(New MenuItem(“Copy”))
base.Append(New MenuItem(“Paste”))
Return True // display the contextual menu

Select Case hitItem.Text
Case “Import”
MsgBox(“You chose Import”)
if hitItem.Checked = false then
hitItem.Checked = true
else
hitItem.Checked = false
end if

Case “Export”
MsgBox(“You chose export”)
Case “Cut”
MsgBox(“You chose Cut”)
Case “Copy”
MsgBox(“You chose Copy”)
Case “Paste”
MsgBox(“You chose Paste”)
End Select

Return True

2

you need to check the menu item when you construct the menu

dim m as menuitem
m=New MenuItem("Import")
m.checked=(checkeditem=1)
base,append m
m=New New MenuItem("Export")
m.checked=(checkeditem=2)
base,append m
m=New New MenuItem(MenuItem.TextSeparator)
base,append m

m=New New MenuItem("Cut")
m.checked=(checkeditem=3)
base,append m
m=New New MenuItem("Copy")
m.checked=(checkeditem=4)
base,append m
m=New (New MenuItem("Paste")
m.checked=(checkeditem=5)
base,append m
Return True // display the contextual menu
Select Case hitItem.Text
Case "Import"
MsgBox("You chose Import")
checkedItem=1

Case "Export"
MsgBox("You chose export")
checkedItem=2
Case "Cut"
MsgBox("You chose Cut")
checkedItem=3
Case "Copy"
MsgBox("You chose Copy")
checkedItem=4
Case "Paste"
MsgBox("You chose Paste")
checkedItem=5
End Select

Return True
3

Many thanks. Very good solution. I could not find it in the Language Reference.

4

perhaps because the LangRef is just that a reference… no document of any kind is going to lay out all the possible solutions to every potential situation… That is why some of are software developers… we take a situation and devise a solution… but even then… take 10 developers and you might get 15 solutions… all of which may work, and some are better and/or worse than others