use Mac::Menus;
DeleteMenu $id;
__END__
If you need to find out the ids of existing menus use...
use Mac::Menus;
$~="OUT1";
for $id (128..66000) {
$menuHandle = GetMenuHandle($id);
if($menuHandle) {
# $menu = GetMenuBar();
$flags = $menuHandle->enableFlags;
$data = $menuHandle->menuData;
write;
}
}
$~="STDOUT";
format OUT1 =
@>>>> = @<<<<<<<<< @<<<<<<<<
$id, $data, $flags
..
__END__
>Perhaps somebody knows this - how can I disable a menu completely?
>
>With the following code I disable all entries within the "File" menu
>but "File" itself remains active.
>
>use Mac::Menus;
>use Mac::Events;
>
>my $menu = GetMenu 129;
>
>print "disabling ...\n";
>DisableItem $menu;
>
>pause( 10 );
>
>EnableItem $menu;
>print "enabling ...\n";
>print "done.\n";
>
>exit;
>
>sub pause {
> my ($time) = @_;
> my $start = time;
> WaitNextEvent until time > ($start + $time);
>}
>
>__END__
>
>Thanks,
>Axel.
