| Subject: | Label truncation / layout problem? |
| Date: | Fri, 18 Oct 2013 18:15:20 +0100 |
| To: | bug-Curses-Toolkit [...] rt.cpan.org |
| From: | Steve Dodd <anarchetic [...] gmail.com> |
Curses::Toolkit looks pretty cool (especially as I can't get STFL to do
much other than crash!) but I'm having a problem .. the following test
code results in the last character of the text in _some_ of the labels
going missing, varying according to the window size.
Here's a couple of screenshots:
http://oi40.tinypic.com/2cnzdbd.jpg
http://oi39.tinypic.com/2095yq1.jpg
The first is 130x37, the second 80x22, according to "echo $COLUMNS x
$LINES"..
Ideas would be appreciated!
Thanks,
Steve
#! /usr/bin/perl -w
use POE::Component::Curses;
use Curses::Toolkit::Widget::Window;
use Curses::Toolkit::Widget::Label;
use Curses::Toolkit::Widget::HBox;
use Curses::Toolkit::Widget::VBox;
# spawn a root window
my $root = POE::Component::Curses->spawn();
# adds some widget
sub add_arrdep {
my ($room, $type) = @_;
my $hb = Curses::Toolkit::Widget::HBox
->new()
->pack_end(
my $l1 = Curses::Toolkit::Widget::Label
->new()
->set_name('room')
->set_text($room)
->set_justify('center'),
{ expand => 1, fill => 1 }
)
->pack_end(
my $l2 = Curses::Toolkit::Widget::Label
->new()
->set_name('arrdep')
->set_text($type)
->set_justify('center'),
{ expand => 1, fill => 1 }
)
;
return $hb;
}
$root->add_window(
my $window = Curses::Toolkit::Widget::Window
->new()
->set_name('main_window')
->add_widget(
my $vb = Curses::Toolkit::Widget::VBox->new()
)
->set_coordinates( x1 => '20%', y1 => '20%',
x2 => '80%', y2 => '80%', )
);
$vb->pack_end(add_arrdep("Robinia","Arrival"));
$vb->pack_end(add_arrdep("Wren","Departure"));
POE::Kernel->run();