#!/usr/bin/perl
# 
# This file is part of Curses-Toolkit
# 
# This software is copyright (c) 2008 by Damien "dams" Krotkine.
# 
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
# 

use strict;
use warnings;

use lib qw(../lib);
main() unless caller;

sub main {

	use POE::Component::Curses;
	use Curses::Toolkit::Widget::Window;

	use Curses::Toolkit::Widget::Border;
	use Curses::Toolkit::Widget::Label;
	use Curses::Toolkit::Widget::Button;

	my $root = POE::Component::Curses->spawn();

	$root->add_window(my $win1 = Curses::Toolkit::Widget::Window->new());

	$win1->set_name("WIN1");
	$win1->set_title("This is the title");
	$win1->add_widget(
 		  Curses::Toolkit::Widget::Button
 			->new_with_label('Button')
 			->set_name('button1'),

# 		  Curses::Toolkit::Widget::Entry
# 			->new_with_text('Test')
# 			->set_name('entry1'),

# 		  Curses::Toolkit::Widget::Label
# 		    ->new()
# 			->set_name("label1")
#             ->set_text("window 1")
	);

	$win1->set_coordinates(x1 => 0,   y1 => 0,
						   x2 => '40%',
						   y2 => '40%',
						  );


	$root->add_window(my $win2 = Curses::Toolkit::Widget::Window->new());

	$win2->set_name("WIN2");
	$win2->add_widget(
		  Curses::Toolkit::Widget::Label
		    ->new()
			->set_name("label2")
            ->set_text("window 2")
	);

	$win2->set_coordinates(x1 => '15%',   y1 => '15%',
						   x2 => '45%',
						   y2 => '45%',
						  );

	POE::Kernel->run();
}