#!/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
In reply to Re: UI::Dialog fselect
by Marshall
in thread UI::Dialog fselect
by stangoesagain
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |