I’m attempting to add checkmarks to items in a PopupMenu, in order to represent states on a few items. Seeing that the current PopupMenu only has rows in it I can’t get at the underlying MenuItems to use checked. Any pointers would be helpful.
I’ve tried using Cocoa calls to get the menu item and set the state but I still don’t get check marks.
Const CocoaLib = "AppKit" Declare Function itemAtIndex Lib CocoaLib selector "itemAtIndex:" ( id As ptr, idx As Integer ) As ptr Declare Sub setState Lib CocoaLib selector "setState:" ( id As ptr, idx As Integer ) Declare Function menu Lib CocoaLib selector "menu" ( id As Integer ) As ptr Dim ctrlHandle As Integer = Me.Handle Dim mi As ptr = itemAtIndex( menu( ctrlHandle ), 0 ) setState( mi, 1 )