Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 menu
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
coolest35




PostPosted: Wed Dec 17, 2003 9:43 pm   Post subject: menu

code:

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. .
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: