"Tickit::Widget::Border" − draw a fixed−size border around a widget
use Tickit;
use Tickit::Widget::Border;
use Tickit::Widget::Static;
my $border = Tickit::Widget::Border−>new
−>set_child(
Tickit::Widget::Static−>new(
text => "Hello, world",
align => "centre",
valign => "middle",
)
);
Tickit−>new( root => $border
)−>run;
This container widget holds a single child widget and implements a border by using Tickit::WidgetRole::Borderable.
The default style pen is used as the widget pen.
$border = Tickit::Widget::Border−>new( %args );
Constructs a new "Tickit::Widget::Border" object.
Takes arguments having the names of any of the "set_*" methods listed below, without the "set_" prefix.
$lines =
$border−>top_border;
$border−>set_top_border( $lines );
Return or set the number of lines of border at the top of the widget
$lines =
$border−>bottom_border;
$border−>set_bottom_border( $lines );
Return or set the number of lines of border at the bottom of the widget
$cols =
$border−>left_border;
$border−>set_left_border( $cols );
Return or set the number of cols of border at the left of the widget
$cols =
$border−>right_border;
$border−>set_right_border( $cols );
Return or set the number of cols of border at the right of the widget
$border−>set_h_border( $cols );
Set the number of cols of both horizontal (left and right) borders simultaneously
$border−>set_v_border( $cols );
Set the number of lines of both vertical (top and bottom) borders simultaneously
$border−>set_border( $count );
Set the number of cols or lines in all four borders simultaneously
Paul Evans <[email protected]>