#!/usr/bin/perl -w
use strict;
use warnings;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;
use File::Spec;
use File::Temp qw ( :POSIX );
my $debug = 0;
my $fh = tmpfile();
open STDERR, ">&$fh";
  
if (@ARGV and $ARGV[0] eq '-d') {
    $debug = 1;
}
my $cui = new Curses::UI (
    -clear_on_exit => 0,
    -debug         => $debug,
);
my $filename;
foreach my $mod (keys %INC) {
        $filename  = $INC{$mod} if ($mod =~ /UI\.pm/);
}
$filename =~ s/\.pm//gi;
$filename = File::Spec->catfile($filename, "Language");
opendir DIR, "$filename" or die "Couldn't open language dir $filename: $!\n";
my @entries = grep /\.pm$/, sort readdir(DIR);
map s/\.pm$//, @entries;
$cui->dialog( "This demo will present all languages of Curses::UI to you\n" .
              join "\n", @entries);
foreach my $entry (@entries) {
        my $lang = new Curses::UI::Language("$entry");
        $cui->lang($lang);
        $cui->dialog("\u$entry");
        $cui->savefilebrowser();
}