#!/usr/bin/perl
use strict;
use warnings;
use Tickit;
use Tickit::Widgets qw( Static Entry Border VBox );
my $vbox = Tickit::Widget::VBox->new( spacing => 1 );
$vbox->add( Tickit::Widget::Static->new( text => "Enter some text here:" ) );
$vbox->add( Tickit::Widget::Border->new(
h_border => 2,
v_border => 1,
bg => 'blue',
child =>
( my $entry = Tickit::Widget::Entry->new ),
) );
$vbox->add( my $label = Tickit::Widget::Static->new( text => "" ) );
$entry->set_on_enter( sub {
$label->set_text( "You entered: $_[1]" );
$_[0]->set_text( "" );
} );
Tickit->new( root => $vbox )->run;