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
=>
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.