view release on metacpan or  search on metacpan

lib/MIDI/XML/Editor.pm  view on Meta::CPAN

$file->pack(qw/-side left/);
$edit->pack(qw/-side left/);
$insert->pack(qw/-side left/);
$help->pack(qw/-side right/);


#  my $menubar = $menu_f->Menu(-type => 'menubar');
#  $menu_f->configure(-menu => $menubar);

#  map {$menubar->cascade( -label => '~' . $_->[0], -menuitems => $_->[1] )}
#      ['File', _file_menuitems],
#      ['Edit', _edit_menuitems],
#      ['Help', _help_menuitems];

#  $self->{'_menu_f'} = $menu_f;
#  $menu_f->Label(
#      -textvariable => \$self->{'_status_msg'},
#    )->pack(
#      -side => 'bottom',
#      -fill => 'x'