| 1 | #!/usr/bin/env perl |
| 2 | |
| 3 | use Curses::UI; |
| 4 | my $cui = new Curses::UI( -color_support => 1, -compat => 0 ); |
| 5 | #my $win = $cui->add('window_id', 'Window'); |
| 6 | |
| 7 | my $file = $cui->filebrowser( |
| 8 | -path => "/tmp", |
| 9 | -show_hidden => 1, |
| 10 | ); |
| 11 | |
| 12 | # Filebrowser will return undef |
| 13 | # if no file was selected. |
| 14 | if (defined $file) { |
| 15 | unless (open F, ">$file") { |
| 16 | print F "Hello, world!\n"; |
| 17 | close F; |
| 18 | } else { |
| 19 | $cui->error(qq(Error on writing to "$file":\n$!)); |
| 20 | } |
| 21 | } |
| 22 | |
| 23 | #print "TEXT: $text \n"; |