#!/usr/bin/perl

use strict;
use warnings;

use Tickit;
use Tickit::Widget::Static;
use Tickit::Widget::HBox;

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

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

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