NAME

Gapp::Moose::Role - Gapp widgets for your roles

SYNOPSIS

 package Foo::Bar;

 use Gapp::Moose::Role;

 widget 'label' => (
   is => 'ro',
   traits => [qw( GappLabel )],
   construct => {
       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 } ]
       ],
   },
 );



package main;

Foo::Bar->new->show_all;

Gapp->main;
=head1 DESCRIPTION

Gapp::Moose::Role provides sugar for adding Gapp widgets to your Moose roles.

SUGAR

widget

Internally, this calls &Moose::Role::has to create a new attribute with the GappWidget trait applied.

Alternatively, you could apply the GappWidget trait yourself

has 'widget' => (
   traits => [qw( GappWidget )],
);

AUTHORS

Jeffrey Ray Hallock, <jeffrey dot hallock at gmail dot com>

COPYRIGHT & LICENSE

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.