use strict; use warnings; use lib qw(lib lib/stripes) ; use Data::TreeDumper ; use App::Asciio ; use App::Asciio::stripes::editable_box2 ; use App::Asciio::stripes::process_box ; use App::Asciio::stripes::single_stripe ; #----------------------------------------------------------------------------- my $asciio = new App::Asciio() ; #----------------------------------------------------------------------------- my ($current_x, $current_y) = (0, 0) ; my $new_box = new App::Asciio::stripes::editable_box2 ({ TEXT_ONLY => 'box', TITLE => '', EDITABLE => 1, RESIZABLE => 1, }) ; $asciio->add_element_at($new_box, 0, 0) ; my $new_process = new App::Asciio::stripes::process_box ({ TEXT_ONLY => 'process', EDITABLE => 1, RESIZABLE => 1, }) ; $asciio->add_element_at($new_process, 25, 0) ; my $new_stripe = new App::Asciio::stripes::single_stripe ({ TEXT => 'stripe', }) ; $asciio->add_element_at($new_stripe, 50, 0) ; print $asciio->transform_elements_to_ascii_buffer() ; $new_box->set_text('title', "line 1\nline 2") ; $new_process->set_text("line 1\nline2\nline3") ; $new_stripe->set_text( "line 1\nline2") ; print $asciio->transform_elements_to_ascii_buffer() ; for ($new_box, $new_process, $new_stripe) { print "\n-------------------------------------------------------\n\n" ; print 'type: ', ref($_), "\n" ; print 'size:', join(",", $_->get_size()) , "\n" ; print DumpTree([$_->get_connection_points()], 'connection points:') , "\n" ; print 'text : ', join("\n", $_->get_text()) , "\n" ; }