| Subject: | Warning for VSplit: Argument "up" ("down") isn't numeric in numeric eq (==) at ...VSplit.pm line 208 |
This happens when using the mouse wheel on the VSplit widget.
Sample code:
use Tickit;
use Tickit::Widget::VSplit;
use Tickit::Widget::Scroller;
use Tickit::Widget::Scroller::Item::Text;
use Tickit::Widget::Static;
my $scroller = Tickit::Widget::Scroller->new;
$scroller->push(
Tickit::Widget::Scroller::Item::Text->new( "Hello world" ),
Tickit::Widget::Scroller::Item::Text->new( "Here are some lines" ),
map { Tickit::Widget::Scroller::Item::Text->new( "<Line $_>" ) } 1 .. 50,
);
my $vsplit = Tickit::Widget::VSplit->new(
left_child => $scroller,
right_child => Tickit::Widget::Static->new( text => "Text below" ),
);
Tickit->new(root=>$vsplit)->run;