"Tickit::Widget::HSplit" − an adjustable horizontal split between two widgets
use Tickit;
use Tickit::Widget::HSplit;
use Tickit::Widget::Static;
my $hsplit = Tickit::Widget::HSplit−>new
−>set_top_child (
Tickit::Widget::Static−>new( text => "Text
above" ) )
−>set_bottom_child(
Tickit::Widget::Static−>new( text => "Text
below" ) );
Tickit−>new( root => $hsplit
)−>run;
This container widget holds two child widgets, displayed one above the other. The two widgets are displayed with a horizontal split bar between them, which reacts to mouse click−drag events, allowing the user to adjust the proportion of space given to the two widgets.
The default
style pen is used as the widget pen. The following style pen
prefixes are also used:
split => PEN
The pen used to render the horizontal split area
The following
style keys are used:
spacing => INT
The number of lines of spacing between the top and bottom child widgets
The following
style tags are used:
:active
Set when a mouse drag resize operation is occurring
$hsplit = Tickit::Widget::HSplit−>new( %args );
Constructs a new "Tickit::Widget::HSplit" object.
$child =
$hsplit−>top_child;
$hsplit−>set_top_child( $child );
Accessor for the child widget used in the top half of the display.
$child =
$hsplit−>bottom_child;
$hsplit−>set_bottom_child( $child );
Accessor for the child widget used in the bottom half of the display.
These mutators returning the container widget itself making them suitable to use as chaining mutators; e.g.
my $container =
Tickit::Widget::HSplit−>new( ... )
−>set_top_child ( Tickit::Widget::Box−>new
... )
−>set_bottom_child(
Tickit::Widget::Box−>new ... );
Paul Evans <[email protected]>