Gtk2::Ex::FormFactory::HBox - A HBox in a FormFactory framework


Gtk2-Ex-FormFactory documentation Contained in the Gtk2-Ex-FormFactory distribution.

Index


Code Index:

NAME

Top

Gtk2::Ex::FormFactory::HBox - A HBox in a FormFactory framework

SYNOPSIS

Top

  Gtk2::Ex::FormFactory::HBox->new (
    homogenous => Bool,
    spacing    => Integer,
    no_frame   => Bool,
    ...
    Gtk2::Ex::FormFactory::Container attributes
    Gtk2::Ex::FormFactory::Widget attributes
  );

DESCRIPTION

Top

This class implements a HBox in a Gtk2::Ex::FormFactory framework. No application object attributes are associated with a HBox.

OBJECT HIERARCHY

Top

  Gtk2::Ex::FormFactory::Intro

  Gtk2::Ex::FormFactory::Widget
  +--- Gtk2::Ex::FormFactory::Container
       +--- Gtk2::Ex::FormFactory::HBox

  Gtk2::Ex::FormFactory::Layout
  Gtk2::Ex::FormFactory::Rules
  Gtk2::Ex::FormFactory::Context
  Gtk2::Ex::FormFactory::Proxy

ATTRIBUTES

Top

Attributes are handled through the common get_ATTR(), set_ATTR() style accessors, but they are mostly passed once to the object constructor and must not be altered after the associated FormFactory was built.

homogenous = BOOL [optional]

If set to TRUE all children in this HBox will have the same width. This is a convenience attribute for the homogenous property of Gtk2::Box.

spacing = INTEGER [optional]

The number of pixels between the child widgets in this HBox. This is a convenience attribute for the spacing property of Gtk2::Box.

no_frame = BOOL [optional]

By default a frame is added to the HBox if it has a title. Set no_frame to a true value to supress this.

For more attributes refer to Gtk2::Ex::FormFactory::Container.

AUTHORS

Top

 Jörn Reder <joern at zyn dot de>

COPYRIGHT AND LICENSE

Top


Gtk2-Ex-FormFactory documentation Contained in the Gtk2-Ex-FormFactory distribution.

package Gtk2::Ex::FormFactory::HBox;

use strict;

use base qw( Gtk2::Ex::FormFactory::Container );

sub get_type { "hbox" }

sub get_homogenous		{ shift->{homogenous}			}
sub get_spacing			{ shift->{spacing}			}
sub get_no_frame		{ shift->{no_frame}			}

sub set_homogenous		{ shift->{homogenous}		= $_[1]	}
sub set_spacing			{ shift->{spacing}		= $_[1]	}
sub set_no_frame		{ shift->{no_frame}		= $_[1]	}

sub new {
	my $class = shift;
	my %par = @_;
	my  ($homogenous, $spacing, $no_frame) =
	@par{'homogenous','spacing','no_frame'};

	my $self = $class->SUPER::new(@_);
	
	$self->set_homogenous($homogenous);
	$self->set_spacing($spacing);
	$self->set_no_frame($no_frame);

	return $self;
}

1;

__END__