NAME

Gapp::Moose - Gapp widgets for your Moose classes

SYNOPSIS

  package Foo::Bar;
 
  use Gapp::Moose;

  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 provides sugar for adding Gapp widgets to your Moose classes.

SUGAR

widget

Internally, this calls &Moose::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.