Re: [MacPerl] disable menus

[Axel Rose]

Hello menu controllers,

thanks for the hints. I found a solution now to disable
the MacPerl menus at runtime.

Your menu id checker doesn't give me the needed results though:

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

results in:
    128 =            -5
    129 = File       22263
    130 = Edit       44793
    131 = Window     -1
    133 = BBEdit     23
    201 =            -1
    202 =            -1
    203 =            -1
    204 =            -1
    205 =            -1
    206 =            -1
    207 =            -1
    208 =            -1
  45346 =            -1
  45537 =   ".0      -4385
  49046 = Hilfe      -65
  49047 =   ��,      -9
  49056 =   ��       524287
  65664 =            -5
  65665 = File       22263
  65666 = Edit       44793
  65667 = Window     -1
  65669 = BBEdit     23
  65737 =            -1
  65738 =            -1
  65739 =            -1
  65740 =            -1
  65741 =            -1
  65742 =            -1
  65743 =            -1
  65744 =            -1

Menu id 132 for "Script" is missing. I can only guess why (Mercution?).

The following code (thanks Thomas) does what I originally wanted:

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

@macperl_menus = (
        128,    # Apple
        129,    # File
        130,    # Edit
        131,    # Window
        132,    # Script
        133,    # Editor
);

print "disabling ...\n";
for ( @macperl_menus ) {
        my $menu = GetMenuHandle $_;
        if( $menu ) { DisableItem $menu; DisableItem $menu, 0; }
}
DrawMenuBar;

pause( 10 );

print "enabling ...\n";

for ( @macperl_menus ) {
        my $menu = GetMenuHandle $_;
        if( $menu ) { EnableItem $menu; EnableItem $menu, 0; }
}
DrawMenuBar;

print "done.\n";

exit;

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

__END__

Deleting with DeleteMenu $id works fine too.
Just in case - how could I easily restore it?


Regards,
Axel.