-----------------------------------

coolest35

Wed Dec 17, 2003 6:18 pm


GUI . Menu Enable

-----------------------------------

Hi, i am making a project that involves a GUI.MENU ( atleast i want to try to make it) i want to know how i could link the menus to a subprogram,  i have tried : put name (i) + " selected               " ..
                if name (i) = "MENU NAME HERE" then
                include "FILENAME.t"
                GUI.ShowMenuBar
                end if        


But that only works for MENU A, not B, i was wondering how i can enable the menu B links... 



 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