#!/usr/bin/env perl
#
# This file is part of Curses-Toolkit
#
# This software is copyright (c) 2011 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 FindBin qw( $Bin );
use lib "$Bin/../../lib";

use relative -to      => "Curses::Toolkit::Widget",
             -aliased => qw(Window Label);

main() unless caller;

sub main {
    use POE::Component::Curses;

    use Curses::Toolkit::Theme::Default::Test;
    my $root = POE::Component::Curses->spawn(  );
    my $window =
      Window->new->set_name('window')->set_title("window")
            ->set_coordinates( x1 => 5, y1 => 5, width => 40, height => 5 );
    $root->add_window($window);

    my $label = Label->new->set_text('Hello World ! hit [ q ] to exit');
    $window->add_widget($label);
    POE::Kernel->run();
}