my @ascii =
(
'arms_down' => <<'EOA',
o
/|\
/ \
EOA
'arms_up' => <<'EOA',
\o/
|
/ \
EOA
'Bunny' => <<'EOA',
(\_/)
(O.o)
(> <)
EOA
'Dilbert' => <<'EOA',
-.-.-,~ .
) (
|_ |
/(_)---`\
(_ -'
] |
| _,')
[_,-'_-'(
(_).-' \
/ / \
EOA
'BSD_devil' => <<'EOA',
, ,
\\_ /|
/- _`-/ '
(/\/ \ /\
O O ) / |
`-^--'`< '
(_) _ )/
`.___/` /
`--' /
<---. __ / __ \
<---|==(fl)=) \ /===
<---' `-' `._,'\
\ /
( ( / \__
,---_' | \
`-(____) V
EOA
) ;
my @boxes ;
use App::Asciio::stripes::editable_box2 ;
for(my $ascii_index = 0 ; $ascii_index < $#ascii ; $ascii_index+= 2)
{
my $box = new App::Asciio::stripes::editable_box2
({
TEXT_ONLY => $ascii[$ascii_index + 1],
EDITABLE => 1,
RESIZABLE => 1,
}) ;
$box->set_box_type([map{$_->[0] = 0; $_} @{$box->get_box_type()}]) ;
$box->shrink() ;
$box->{'NAME'} = $ascii[$ascii_index] ;
push @boxes, $box ;
}
[@boxes] ;