----------------------------------- coolest35 Wed Dec 17, 2003 9:43 pm menu ----------------------------------- import GUI in "%oot/lib/GUI" View.Set ("graphics:250;150,nobuttonbar") var first, second : int % The menus. var item : array 1 .. 12 of int % The menu items. var name : array 1 .. 12 of string (20) := init ("Quit", "---", "A", "B", "---", "C", "D", "Disable B Menu Item", "Enable B Menu Item", "---", "Disable Second Menu", "Enable Second Menu") procedure MenuSelected for i : 1 .. 12 if item (i) = GUI.GetEventWidgetID then Text.Locate (maxrow, 1) put name (i) + " selected " .. end if end for end MenuSelected procedure DisableB GUI.Disable (item (4)) end DisableB procedure EnableB GUI.Enable (item (4)) end EnableB procedure DisableFirst GUI.Disable (first) end DisableFirst procedure EnableFirst GUI.Enable (first) end EnableFirst % Create the menus first := GUI.CreateMenu ("First") item (1) := GUI.CreateMenuItem (name (1), GUI.Quit) for cnt : 2 .. 7 item (cnt) := GUI.CreateMenuItem (name (cnt), MenuSelected) end for second := GUI.CreateMenu ("Second") item (8) := GUI.CreateMenuItem (name (8), DisableB) item (9) := GUI.CreateMenuItem (name (9), EnableB) item (10) := GUI.CreateMenuItem (name (10), MenuSelected) item (11) := GUI.CreateMenuItem (name (11), DisableFirst) item (12) := GUI.CreateMenuItem (name (12), EnableFirst) loop exit when GUI.ProcessEvent end loop that is the code to my menu, i want the FIRST & SECOND MENU's TO LINK , I HAVE MANAGED TO LINK FIRST => A , B, C, D BUT NOT THE MENUS PART. .