view release on metacpan or  search on metacpan

example/file.pl  view on Meta::CPAN

  if ($key eq "\n") {
    chgdir($w);
    $f->setField(DONTSWITCH => 1);
  }
}

__DATA__

%forms = (
  MainFrm     => {
    TABORDER        => [qw(Menu lstSource lstDest)],
    FOCUSED         => 'lstSource',
    WIDGETS         => {
      Menu            => {
        TYPE            => 'Menu',
        MENUS           => {
          MENUORDER       => [qw(File)],
          File            => {
            ITEMORDER       => [qw(Exit)],
            Exit            => \&main::quit,
            },
          },
        },
      lstSource       => {
        TYPE            => 'ListBox::MultiColumn',

test.pl  view on Meta::CPAN

    LISTITEMS => [map { [split(', ', $_)] } sort keys %records]);

  # Reset the form fields
  resetfields($f);
}

__DATA__

%forms = (
  MainFrm     => {
    TABORDER        => [qw(Menu People)],
    FOCUSED         => 'People',
    WIDGETS         => {
      Menu            => {
        TYPE            => 'Menu',
        MENUS           => {
          MENUORDER       => [qw(File Record)],
          File            => {
            ITEMORDER       => [qw(Save Exit)],
            Exit            => \&main::quit,
            Save            => \&main::save,
            },
          Record            => {
            ITEMORDER       => ['Add Record', 'Delete Record'],
            'Add Record'    => \&main::showaddrec,