NAME

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

SYNOPSIS

package Foo::Bar;
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;

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.