In one of my menus I'd like to be able to put a checkmark next to an item. I tried using CheckMenu() to no avail. Here's a pic of what I'm trying to do:

Strict Const MENU_TEST = 300 Const MENU_CHECKITEM = 301 Local window:TGadget = CreateWindow("A Window", 100, 100, 320, 240) Local testMenu:TGadget = CreateMenu("Test", MENU_TEST, window) Local checkItem:TGadget = CreateMenu("Check Me", MENU_CHECKITEM, testMenu) UpdateWindowMenu(window) Repeat Select WaitEvent() Case EVENT_MENUACTION Select EventData() Case MENU_CHECKITEM If MenuChecked(checkItem) UncheckMenu(checkItem) Else CheckMenu(checkItem) EndIf End Select UpdateWindowMenu(window) Case EVENT_WINDOWCLOSE End End Select Forever
menu:tgadget=AddMenu() or what is the comand :P CheckMenu(menu) UpdateMenu(win:tgadget) 'or something liket this...
toolbar=CreateToolBar("incbin::icons.PNG",0,0,0,0,window ) SetToolBarTips toolbar,["Nuovo","Apri","Chiudi","Salva","","Taglia","Copia","Incolla","Trova","","Compila","Compila & Parti","Passo","Passo IN","Passo Out","Stop" ,"","Home","Back","Forward" ] ' InsertToolBarSeparator toolbar,5