use strict;
use warnings;
use Prima qw(Application Edit Buttons);

my $window = new Prima::MainWindow( size => [ 250, 350] );
	
my $display_field = $window->insert( Edit =>
	size => [ 200, 300],
	text => '',
	centered => 1,	
);

my $butoon = $window->insert( Button =>
	size => [ 50, 20],
	text => 'Click',
	place => { x => 120, y => 340 },
	onClick => \&button_Click,
);

sub button_Click {	
	
	for (1..5) {	
		$display_field->insert_text("$_\n\n");	
	}	
		
}
run Prima;