[MacPerl] disable menus

[Axel Rose]

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.