=pod

=head1 NAME

FLTK::MenuBar - Typical Window Menu

=head1 Description

Subclass of L<FLTK::Menu|FLTK::Menu>. The top level menu items are visible and
drawn in a horizontal row. Put this at the top edge of your window and you get
a typical menubar.

You can call L<C<popup( )>|FLTK::Menu/"popup"> on this same widget in response
to a right-click in your work area and you will get the exact same menu as a
vertical pop up menu.

=head1 Functions

=head2 C<default_style>
X<default_style>

=over

=item C<my $style = $menubar-E<gt>default_style( );>X<my_style_menubar_E_gt_default_style_>

Get the style

=for hackers xs/MenuBar.xs line 52

=item C<$menubar-E<gt>default_style( $style );>X<_menubar_E_gt_default_style_style_>

Set the style.

=pod 

=for hackers xs/MenuBar.xs line 56

=back

=head2 C<new>
X<new>

=over

=item C<my $menu = $menubar-E<gt>new( $x, $y, $w, $h, $label );>X<my_menu_menubar_E_gt_new_x_y_w_h_label_>



=for hackers xs/MenuBar.xs line 37

=back

=head1 Author

Sanko Robinson <sanko@cpan.org> - http://sankorobinson.com/

=head1 License and Legal

Copyright (C) 2008-2010 by Sanko Robinson <sanko@cpan.org>

This program is free software; you can redistribute it and/or modify it under
the terms of
L<The Artistic License 2.0|http://www.perlfoundation.org/artistic_license_2_0>.
See the F<LICENSE> file included with this distribution or
L<notes on the Artistic License 2.0|http://www.perlfoundation.org/artistic_2_0_notes>
for clarification.

When separated from the distribution, all original POD documentation is
covered by the
L<Creative Commons Attribution-Share Alike 3.0 License|http://creativecommons.org/licenses/by-sa/3.0/us/legalcode>.
See the
L<clarification of the CCA-SA3.0|http://creativecommons.org/licenses/by-sa/3.0/us/>.


=for git $Id: MenuBar.xs 7483df2 2011-04-09 05:42:22Z sanko@cpan.org $

=cut