#!/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