On 7/10/06, Mumia W. <[EMAIL PROTECTED]> wrote:
I'm trying to learn to use Curses::UI, and I read the top of "perldoc
Curses::UI" and found some example code. Unfortunately, it doesn't work.
The Curses::UI refers you to a more appropriate example. The example's syntax:
use FindBin;
use lib "$FindBin::RealBin/../lib";
use strict;
use Curses::UI;
$Curses::UI::debug = 0;
my $cui = new Curses::UI( -color_support => 1 );
my $win1 = $cui->add(
'win1', 'Window',
-border => 1,
-y => 1,
-bfg => 'red',
);
$win1->add("box1", "Buttonbox",
-buttons => [ {
-label => "< ADD >",
}, {
-label => "< FOO >" }] ,
);
$win1->add("box2", "Buttonbox",
-y => 10,
-vertical => 1,
-buttons => [ {
-label => "< ADD >",
}, {
-label => "< FOO >" }] ,
);
$cui->set_binding( sub {exit 0;}, "q");
$cui->MainLoop;
__END__
In other words, the < Yes > was supposed to be the label of a button;
not a button itself...
HTH/Sx
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
