Help for this page

Select Code to Download

Select or download this

(
  bless({
...
  }, "Win32::GUI::Window"),
)
bless({ -handle => 13304919 }, "Win32::GUI::Menu")

Select or download this

#!/usr/bin/perl --
#!perl
use Win32::GUI;
...
    $Window->{__special_Menu}->{'Beta'}->Enabled(0);
    return 1;
}