view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Games::Minesweeper.

0.5     
        - middle mousebutton support

0.4
        - moved from Audio::Play to SDL::Mixer
        - workaround for Gtk2::SimpleMenu problems

0.3
        - added sound support
        - load/save prefs

0.2   Wed Jul 16 14:31:53 2008
	- original version; created by h2xs 1.23 with options
		-X -c --skip-ppport -n Games::Minesweeper
        - initial release

lib/Games/Minesweeper.pm  view on Meta::CPAN

package Games::Minesweeper;

# http://txt.hello-penguin.com/6c206c05b150b767d55feb966a7654f6.txt
BEGIN  { $ENV{PERL_DL_NONLAZY} = 0; }

use strict;
use SDL ();
use SDL::Mixer ();
use Gtk2 ();
use Gtk2::SimpleMenu ();
use AnyEvent ();
use File::HomeDir ();

use Data::Dumper;

our $VERSION = "0.5";
our $custom_fix = 0;

=head1 NAME

lib/Games/Minesweeper.pm  view on Meta::CPAN

           "_?" => { 
                 item_type => '<Branch>',
                 children => [
                     _About => { callback => sub { about_dialog; },
                                 accelerator => 'F1',
                               }
                 ],
           },
         ]; 

      $menu = new Gtk2::SimpleMenu (menu_tree => $menu_tree,
                                );
      $l = new Gtk2::Label ('0000 ');
      $mc = new Gtk2::Label (' 000');
      $smiley->signal_connect (clicked => sub { restart; });
      $d->set_events ([ 'button_release_mask', 'button_press_mask', ]); #'pointer_motion_mask' ]);
      $d->signal_connect (expose_event => \&expose_cb);
      $d->signal_connect (button_press_event => \&button_press_cb);
      $d->signal_connect (button_release_event => \&button_release_cb);
      $f2->set_border_width(5);
      my $fixbox = new Gtk2::HBox;