JHALLOCK / Gapp-0.26 / lib / Gapp / Box.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
—
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
package Gapp::Box;
use Moose;
use MooseX::SemiAffordanceAccessor;
extends 'Gapp::Container';
has '+class' => (
    default => 'Gtk2::Box',
);
sub BUILDARGS {
    my $class = shift;
    my %args = @_ == 1 && is_HashRef( $_[0] ) ? %{$_[0]} : @_;
     
    if ( exists $args{spacing} ) {
        $args{properties}{spacing} = $args{spacing};
        delete $args{spacing};
    }
    if ( exists $args{homogeneous} ) {
        $args{properties}{homogeneous} = $args{homogeneous};
        delete $args{homogeneous};
    }
     
    __PACKAGE__->SUPER::BUILDARGS( %args );
}
1;
__END__
=pod
=head1 NAME
Gapp::Box - Box widget
=head1 OBJECT HIERARCHY
=over 4
=item L<Gapp::Widget>
=item +-- L<Gapp::Container>
=item ....+-- L<Gapp::Box>
=back
=head1 DELEGATED PROPERTIES
=over 4
=item spacing
=item homogeneous
=back
=head1 AUTHORS
Jeffrey Ray Hallock E<lt>jeffrey.hallock at gmail dot comE<gt>
=head1 COPYRIGHT & LICENSE
    Copyright (c) 2011 Jeffrey Ray Hallock.
    This program is free software; you can redistribute it and/or
    modify it under the same terms as Perl itself.
=cut