Commit | Line | Data |
---|---|---|
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 |