1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Tickit;
use Tickit::Widget::Static;
use Tickit::Widget::VBox;
use Tickit::Widget::HBox;
my $vbox = Tickit::Widget::VBox->new( spacing => 1 );
my $hbox;
$vbox->add( $hbox = Tickit::Widget::HBox->new( spacing => 2 ) );
for (qw( red blue green yellow )) {
$hbox->add( Tickit::Widget::Static->new( text => "fg $_ ", fg => $_ ) );
}
$vbox->add( $hbox = Tickit::Widget::HBox->new( spacing => 2 ) );
for (qw( red blue green yellow )) {
$hbox->add( Tickit::Widget::Static->new( text => "fg hi-$_", fg => "hi-$_" ) );
}
$vbox->add( $hbox = Tickit::Widget::HBox->new( spacing => 2 ) );
for (qw( red blue green yellow )) {
$hbox->add( Tickit::Widget::Static->new( text => "bg $_ ", bg => $_, fg => "black" ) );
}
$vbox->add( $hbox = Tickit::Widget::HBox->new( spacing => 2 ) );
for (qw( red blue green yellow )) {
$hbox->add( Tickit::Widget::Static->new( text => "bg hi-$_", bg => "hi-$_", fg => "black" ) );
}
$vbox->add( Tickit::Widget::Static->new( text => "bold", b => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "underline", u => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "italic", i => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "strikethrough", strike => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "reverse video", rv => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "blink", blink => 1 ) );
$vbox->add( Tickit::Widget::Static->new( text => "alternate font", af => 1 ) );
my $t = Tickit->new( root => $vbox );
$t->bind_key( q => sub { $t->stop } );
$t->run;
|
