my @ascii = 
	(
	'3D_box' => <<'EOA',
  .---.
 /   /|
.---. |
|   | '
|   |/ 
'---'  
EOA

	'console' => <<'EOA',
 ____ 
|    |
|____|
/::::/

EOA

	'computer_small' => <<'EOA',
 __  _ 
[__]|=|
/::/|_|
EOA

	'mainframe' => <<'EOA',
 ________ 
|==|=====|
|  |     |
|  |     |
|  |     |
|  |     |
|  |====°|
|__|_____|
EOA

	'Mini' => <<'EOA',
 ____ 
|====|
|    |
|    |
|____|
EOA

	'19_rack' => <<'EOA',
 __________ 
[_..._....°]
[_..._....°]
[_..._....°]
[_..._....°]
[_|||||||_°]
[_|||||||_°]
[_|||||||_°]
[_________°]
[_________°]
[_________°]
[___....__°]
EOA

	'rack modem' => <<'EOA',
 __________ 
|____oooo_°|
EOA

	'SAN' => <<'EOA',
 __________ 
[_|||||||_°]
[_|||||||_°]
[_|||||||_°]
EOA

	'router' => <<'EOA',
 __________ 
[_...__...°]
EOA

	'wireless' => <<'EOA',
 |_|_| 
[____°]
EOA

	'workstation' => <<'EOA',
 ____   __ 
|    | |==|
|____| |  |
/::::/ |__|
EOA

	'print server' => <<'EOA',
    _____ 
  _/____/|
 /__/__/||
|=  |-°||'
|___|__|/ 
EOA

	'small_rack' => <<'EOA',
 ______ 
[.....°]
[.....°]
[|||||°]
[|||||°]
[_____°]
[_____°]
[_____°]
EOA

	'modem' => <<'EOA',
 ______ 
|_ooo_°|
EOA

	'firewall' => <<'EOA',
 _____________________ 
|___|___|___|___|___|_|
|_|___|___|___|___|___|
|___|___|___|___|___|_|
EOA

	'INTERNET' => <<'EOA',
              .--.               
          _ -(    )- _           
     .--,(            ),--.      
 _.-(                       )-._ 
(           INTERNET            )
 '-._(                     )_.-' 
      '__,(            ),__'     
           - ._(__)_. -          
EOA

	'internet' => <<'EOA',
    .-,(  ),-.    
 .-(          )-. 
(    internet    )
 '-(          ).-'
     '-.( ).-'    
EOA

	'backbone' => <<'EOA',
===================================
EOA

	'BACKBONE' => <<'EOA',
===================================
===================================
===================================
EOA

	'document' => <<'EOA',
 ___   
|   |\ 
|   '-|
|     |
|_____|
EOA

	'DB' => <<'EOA',
  _.-----._  
.-         -.
|-_       _-|
|  ~-----~  |
|           |
`._       _.'
   "-----"   
EOA

	'wireless_mast' => <<'EOA',
 ((.)) 
   |   
  /_\  
 /___\ 
/     \
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] ;