Skip to content
Browse files

mouse is on by default in menu

  • Loading branch information...
1 parent 5944bfc commit 88cc8e79ea10483213fd8c748731e301183c7f45 @garu garu committed Sep 25, 2011
Showing with 3 additions and 2 deletions.
  1. +1 −1 examples/menu.pl
  2. +2 −1 lib/SDLx/Widget/Menu.pm
View
2 examples/menu.pl
@@ -11,7 +11,7 @@
eoq => 1,
);
-my $menu = SDLx::Widget::Menu->new( topleft => [ 0, 400 ], mouse => 1 );
+my $menu = SDLx::Widget::Menu->new( topleft => [ 0, 400 ] );
$menu->items(
'New Game' => sub { },
'Load Game' => sub { },
View
3 lib/SDLx/Widget/Menu.pm
@@ -27,8 +27,9 @@ has 'select_color' => ( is => 'ro', isa => 'ArrayRef',
has 'font_size' => ( is => 'ro', isa => 'Int', default => 24 );
has 'current' => ( is => 'rw', isa => 'Int', default => 0 );
+has 'mouse' => ( is => 'ro', isa => 'Bool', default => 1);
+
# TODO implement those
-has 'mouse' => ( is => 'ro', isa => 'Bool');
has 'change_sound' => ( is => 'ro', isa => 'Str' );
has 'select_sound' => ( is => 'ro', isa => 'Str' );

0 comments on commit 88cc8e7

Please sign in to comment.
Something went wrong with that request. Please try again.