#!/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";

open STDERR, '>>/dev/null';

use relative -to      => "Curses::Toolkit::Widget",
             -aliased => qw(Window Label VBox HBox Button);
use relative -to      => "Curses::Toolkit::Theme::Default::Color",
             -aliased => qw(BlueWhite Yellow Pink);
use relative -to      => "Curses::Toolkit::Theme",
             -aliased => qw(Default);

main() unless caller;

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

    my $root = POE::Component::Curses->spawn( args => { theme_name => BlueWhite } );

    foreach my $i (1..5) {
        $root->add_window(
            Window->new->set_title("Window $i")
                  ->set_coordinates( x1 => 2 + 12 * $i, y1 => 1 + 2 * $i,
                                     width => 25, height => 10 )
                  ->add_widget(
                      VBox->new()->pack_end(
                          Label->new->set_justify('center')->set_text("This is window $i."),
                          { expand => 1 }
                      )->pack_end(
                          Button->new_with_label('OK'),
                          { expand => 0 }
                      )
                  )
        );
    }

    POE::Kernel->run();
}