Curses::Forms 1.997

Curses::Forms is a curses forms framework.

SYNOPSIS

use Curses::Forms;

$obj = Curses::Forms->new({
ALTBASE => 'MyCompany::Widgets',
ALTFBASE => 'MyCompany::Forms',
COLUMNS => 40,
LINES => 20,
BORDER => 1,
BORDERCOL => 'white',
CAPTION => 'New Record',
CAPTIONCOL => 'yellow',
FOREGROUND => 'black',
BACKGROUND => 'white',
Y => 1,
X => 1,
INPUTFUNC => &scankey,
DERIVED => 0,
AUTOCENTER => 1,
TABORDER => [qw(btnOKCancel edtLogon edtPsswd)],
FOCUSED => 'edtLogon',
WIDGETS => {
btnOKCancel => {
TYPE => 'ButtonSet',
LABELS => [qw(OK Cancel)],
Y => 8,
X => 3,
FOREGROUND => 'white',
BACKGROUND => 'green',
OnExit => &btns,
},
edtLogon => {
TYPE => 'TextField',
FOREGROUND => 'white',
BACKGROUND => 'blue',
CAPTION => 'Logon',
CAPTIONCOL => 'yellow',
LENGTH => 21,
Y => 2,
X => 8,
},
edtPsswd => {
TYPE => 'TextField',
FOREGROUND => 'white',
BACKGROUND => 'blue',
CAPTION => 'Password',
CAPTIONCOL => 'yellow',
LENGTH => 21,
Y => 5,
X => 8,
PASSWORD => 1,
},
});

$form->setField(BORDER => 1);
@taborder = @{$form->getField('TABORDER')};

$form->addWidget('btnClose', { %options });
$widget = $form->getWidget('btnClose');

$form->addSubform('MainSubFrm', { %options });
$subform = $form->getSubform('MainSubFrm');

$form->execute($mwh);

pushwh($mwh);
popwh();
refreshwh();
lowerwh($wh);
raisewh($wh);

Product's homepage

Requirements:

· Perl