[mirrors/Programs.git] / perl / curses / dialog.pl

#!/usr/bin/env perl

use UI::Dialog;
         my $d = new UI::Dialog ( backtitle => 'backtitle', title => 'title',
                                  #height => 20, width => 65 , listheight => 5,
                                  order => [ 'CDialog', 'WhipTail', 'ASCII', 'Zenity', 'XDialog' ] );

         $d->msgbox( title => 'Welcome!', text => 'Welcome one and all!' );
					my $text = $d->fselect( path => '/tmp' );
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2
	3	use UI::Dialog;
	4	my $d = new UI::Dialog ( backtitle => 'backtitle', title => 'title',
	5	#height => 20, width => 65 , listheight => 5,
	6	order => [ 'CDialog', 'WhipTail', 'ASCII', 'Zenity', 'XDialog' ] );
	7
	8	$d->msgbox( title => 'Welcome!', text => 'Welcome one and all!' );
	9	my $text = $d->fselect( path => '/tmp' );
	10