view release on metacpan or  search on metacpan

examples/demo-vbox.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Tickit;
use Tickit::Widget::Static;
use Tickit::Widget::VBox;

my $vbox = Tickit::Widget::VBox->new(
   style => {
      spacing => 1,
   },
);

foreach ( 1 .. 6 ) {
   $vbox->add(
      Tickit::Widget::Static->new(
         text => "Row $_", bg => $_, fg => "hi-white",
         align => "centre", valign => "middle",
      ),
      expand => 1,
   )
}

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