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