view release on metacpan or  search on metacpan

lib/Games/Worms/Tk/Board.pm  view on Meta::CPAN

  my $about_button = $mw->Dialog(
    -text => "Worms version $Games::Worms::Tk::VERSION\n
Sean M. Burke
<sburke\@netadventure.net>",
    -title => 'About Worms',
    -bitmap => 'info',
    -buttons => ["OK"]
  );
  # $about_button->configure(-wraplength => '6i');

  my $file = $menubar->Menubutton(qw/-text File -underline 0 -menuitems / =>
    [
     [Button    => '~Quit', -command => [ \&_board_cleanup ]],
    ])->grid(qw/-sticky w/); 
  my $about = $menubar->Menubutton(qw/-text About -underline 0 -menuitems/ =>
    [
     [Button    => "~About Worms", -command => [ $about_button => 'Show' ]],
    ])->grid(qw/-row 0 -column 1 -sticky w/); 

  $board->{'canvas'} = $mw->Canvas(
    -background => $board->{'bg_color'},
    -width => $board->{'canvas_width'},
    -height => $board->{'canvas_height'},
  )->grid;