sub build_menu_bar {
    my ($parent) = @_;

    my $mb = $parent->Menu(
        -type => q{menubar},
        ...
    );

    $mb->bind(ref $mb, q{<ButtonPress>}, \&menu_button_down);

    $parent->configure(-menu => $mb);
    $mb->configure(-cursor => q{});
    ...
}