Gapp::Moose::Role - Gapp widgets for your roles
package Foo::Bar; use Gapp::Moose::Role; widget 'label' => ( is => 'ro', traits => [qw( GappLabel )], construct => sub { text => 'Hello World!' } ); widget 'window' => ( is => 'ro', traits => [qw( GappWindow GappDefault )], construct => sub { title => 'Gapp Application', content => [ $_[0]->label ], signal_connect => [ [ 'delete-event' => sub { Gtk2->main_quit } ] ], }, ); ... and then later ... package main; Foo::Bar->new->show_all; Gapp->main;
Gapp::Moose::Role provides sugar for adding Gapp widgets to your Moose roles.
widget
Internally, this calls &Moose::Role::has to create a new attribute with the GappWidget trait applied.
&Moose::Role::has
GappWidget
Alternatively, you could apply the GappWidget trait yourself
has 'widget' => ( traits => [qw( GappWidget )], );
Jeffrey Ray Hallock, <jeffrey dot hallock at gmail dot com>
Copyright 2011 Jeffrey Ray Hallock, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Gapp, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Gapp
CPAN shell
perl -MCPAN -e shell install Gapp
For more information on module installation, please visit the detailed CPAN module installation guide.