The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tickit::Widget::Border - draw a fixed-size border around a widget

SYNOPSIS

 use Tickit;
 use Tickit::Widget::Border;
 use Tickit::Widget::Static;

 my $hello = Tickit::Widget::Static->new(
    text   => "Hello, world",
    align  => "centre",
    valign => "middle",
 );

 my $border = Tickit::Widget::Border->new;

 $border->set_child( $hello );

 Tickit->new( root => $border )->run;

DESCRIPTION

This container widget holds a single child widget and implements a border by using Tickit::WidgetRole::Borderable.

STYLE

The default style pen is used as the widget pen.

CONSTRUCTOR

$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.

ACCESSSORS

$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

AUTHOR

Paul Evans <leonerd@leonerd.org.uk>