I installed UI::Dialog and got the following results, something is wrong as shown below... Missing module?
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use UI::Dialog;
my $d = new UI::Dialog ( backtitle => 'Demo', title => 'Default',
height => 20, width => 65 , listheight => 5,
## this is a problem ### order => [ 'zenity', 'xdialog' ] );
);
# Either a Zenity or Xdialog msgbox widget should popup,
# with a preference for Zenity.
$d->msgbox( title => 'Welcome!', text => 'Welcome one and all!' );
__END__
Prints:
+-------------------------------------------------------------------
+----------+
| Demo
+ |
+-------------------------------------------------------------------
+----------+
|
+ |
| +-----------------------------------------------------------------
+--------+ |
| | Welcome!
+ | |
| +-----------------------------------------------------------------
+--------+ |
| | Welcome one and all!
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| |
+ | |
| +-----------------------------------------------------------------
+--------+ |
|
+ |
+-------------------------------------------------------------------
+----------+
[ Press Enter to Continue ]
Process completed successfully