Select Code to Download

...
use Tk;
...
    build_menu_bar($mw);
    ...
}

sub configure_option_database {
    my ($mw) = @_;
...
    $mw->optionAdd(q{*Menu.cursor}, q{}, $priority);
    ...
}

sub build_menu_bar {
    my ($parent) = @_;
...
    $mb->configure(-cursor => q{});
    ...
}

# A modified version of Tk::Menu::ButtonDown()
sub menu_button_down {
...
            # END: Modification of Tk::Menu::ButtonDown()
    ...
}