Help for this page

Select Code to Download

Select or download this

sub MenuBar::Item::BUILD {
    my $self = shift;
    bless $self, __PACKAGE__ ;
    $self->Append( $self->item_quit );
    return $self;
}

Select or download this

#!/usr/bin/perl --
use Wx qw[ :allclasses ]; 
{ package MMenu;  use base qw/ Wx::Menu /; 1; }
...
__END__
Wx::Menu=SCALAR(0x3f9afc)
MFrame=HASH(0x99b30c)