[MacPerl] disabling menus in MacPerl

[Axel Rose]

Hello,

is this the proper way to disable MacPerl menus (here the
File menu) of MacPerl itself during runtime?


use Mac::Menus;
use Mac::Events;

my $menu = GetMenu 129;

DisableItem $menu;

pause( 10 );

EnableItem $menu;

exit;

sub pause {
  my ($time) = @_;
  my $start = time;
  WaitNextEvent until time > ($start + $time);
}


__END__

Problems temporarily observed:
if I replace pause() with sleep() the menu isn't disabled
immediately after the call
5.20r4 seems to disable all menu items
5.6.1b1 seems to disable all items plus "File"



Axel