#!/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 Curses::Toolkit;
	use Curses::Toolkit::Widget::Window;
	use Curses::Toolkit::Widget::Border;

	my $root = Curses::Toolkit
	  ->init_root_window(clear => 0)
	  ->add_window(
	    my $window = Curses::Toolkit::Widget::Window
		  ->new()
		  ->set_name('main_window')
		  ->set_coordinates(x1 => 0,   y1 => 0,
							x2 => 40,  y2 => 20)
		  ->add_widget(
			my $border1 = Curses::Toolkit::Widget::Border
			  ->new()
		      ->set_name('border1')
		  )
	  )
	  ->render()
	  ->display();

# 	my $root = Curses::Toolkit
# 	  ->init_root_window(clear => 0);

# 	my $window = Curses::Toolkit::Widget::Window->new();

# 	my $border = Curses::Toolkit::Widget::Border->new();
# 	$border->set_name('border1');

# 	$root->add_window($window);

# 	$window->set_name('main_window');
# 	$window->set_coordinates(x1 => 0,   y1 => 0,
# 							 x2 => 40,  y2 => 20);

# 	$window->add_widget( $border );

# 	$root->render();
# 	$root->display();

sleep 3;
#	use Time::HiRes qw(usleep);
#	use Curses::Toolkit::Object::Coordinates;
#	while (1) {
#		foreach (1..10) {
#			usleep(40000);
# 			$window->set_coordinates($window->get_coordinates() +
# 									 { x1 => 0, y1 => 0,
# 									   x2 => 2, y2 => -1, }
# 									);
#			$root
#			  ->render()
#				->display();
# 		}
# 		foreach (1..10) {
# 			usleep(40000);
# 			$window->set_coordinates($window->get_coordinates() +
# 									 { x1 => 0,  y1 => 0,
# 									   x2 => -2, y2 => 1, }
# 									);
# 			$root
# 			  ->render()
# 				->display();
# 		}
# 	}

# 	sleep 20;

}