#!/usr/bin/perl

use strict;
use warnings;
use Curses;

initscr();

my $one = newwin(10, 50, 0, 0);
my $onepad = newpad(100, 100);
$onepad->addstr(0, 0, "Line one hello!");
$onepad->addstr(1, 0, "Line one hello!");
$onepad->addstr(2, 0, "Line one hello but this one is waaaaaaay longer");
$onepad->addstr(3, 0, "Line one hello but this one is waaaaaaay longer");
$onepad->prefresh(0, 0, 1, 1, 8, 48);
my $onep = new_panel($one);
$one->box(0, 0);

my $three = newwin(10, 30, 0, 50);
my $threep = new_panel($three);
$three->addstr(2, 1, "Yawn");
$three->box(0, 0);

my $two = newwin(3, 50, 3, 5);
my $twop = new_panel($two);
$two->box(0, 0);
$two->addstr(1, 1, "Well hello");

update_panels();
doupdate();                                                               

endwin();
