Re: MI-L hierarchical menu

[B. Thoen]

On Mon, 21 Jun 2004, B. Thoen wrote:

> On Mon, 21 Jun 2004, Gilbert, Antoine wrote:
> 
> > any idea why im unable to disable/enable hierarchical menu items ? (my
> > ids are unique !)
> 
> I don't think you can disable a menu; you'll have to disable all the menu 
> items it contains instead.
> 

You *can* make a menu disappear, though.  Try something like this:

declare sub main
declare sub switchon
declare sub switchoff
declare sub appexit
declare sub ubi

sub main
  create menu "Flyer" as
    "One" ID 5 calling Ubi,
    "Two" ID 6 calling Ubi
  create menu "Test" as
    "Disable Flyer" calling SwitchOff,
    "Enable Flyer" calling SwitchOn,
    "Flyer" ID 3 as "Flyer",
    "Exit" calling appexit
  alter menu bar add "Test"
end sub

sub appexit
  create menu bar as default
  end program
end sub

sub ubi
  note "This does nothing"
end sub

sub switchon
  alter menu item ID 3 text "Flyer" as "Flyer"
end sub

sub switchoff
  alter menu item ID 3 text "(-" 
end sub




---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 12322