view release on metacpan or  search on metacpan

examples/TypeA/OpenEAFDSS-TypeA.pl  view on Meta::CPAN

	{ -label => ' Help ', -value => \&helpDialog },
	{ -label => ' About', -value => \&aboutDialog }
];
my($menuBar) = [
	{ -label => 'File',   -submenu => $menuFile  },
	{ -label => 'Type A', -submenu => $menuTypeA },
	{ -label => 'Tools',  -submenu => $menuTools },
	{ -label => 'Help',   -submenu => $menuHelp  }
]; 

my($menu) = $cui->add( 'menu', 'Menubar', -menu => $menuBar);

my($statusBar) = $cui->add( 'statusbar_win', 'Window', -height => 4, -y => -1);
my($status) = $statusBar->add(
	'status_text', 'TextViewer',
	-text		=> " ^X:Menu | OpenEAFDSS Type A *example* Solution Utility",
	-padtop		=> 2,
	-width		=> 180,
	-fg             => 'white',
	-bg             => 'blue',
);

$cui->set_binding(sub {$menu->focus()},     "\cX");
$cui->set_binding( \&settingsDialog,        "\cS");
$cui->set_binding( \&exitDialog,            "\cQ");