in reply to UI::Dialog fselect
#!/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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: UI::Dialog fselect
by stangoesagain (Acolyte) on Apr 21, 2016 at 17:41 UTC |