#!/usr/bin/perl -w

# $Id: buttons,v 1.1 1998/11/09 02:29:51 daniel Exp daniel $

use strict;
use ExtUtils::testlib;
use Term::Newt;

my $n = Term::Newt->new;

$n->init;
$n->cls;

$n->open_window(10, 5, 40, 6, "Button Sample");

my $button1 = $n->button(10, 1, "Ok");
my $button2 = $n->compact_button(22, 2, "Cancel");

my $ref = 0;
my $form = $n->form(\$ref,'', 0);

$n->form_add_components($form, $button1, $button2);

$n->run_form($form);
$n->form_destroy($form);
$n->finished;
