GUI . Menu Enable

coolest35 · **Posted:** Wed Dec 17, 2003 6:18 pm

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...

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

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members