Now making use of new utf8 support when using Curses::UI

diff --git a/perl/curses/curses.pl b/perl/curses/curses.pl
index 4dce2572b7b362d42b3fe8c5e0d5566a99591672..dab5618ae96e7db86af128ec6f7df4b61858308a 100755 (executable)
--- a/perl/curses/curses.pl
+++ b/perl/curses/curses.pl
@@ -5,7 +5,7 @@ use utf8;
 
 use strict;
 use warnings;
-use Curses::UI;
+use Curses::UI ;
 
 #use I18N::Collate;
 #setlocale('LC_COLLATE', 'cs_CZ.utf8');
@@ -20,7 +20,7 @@ use Curses::UI;
 
 
 
-my $cui = new Curses::UI( -color_support => 1, -compat => 0 );
+my $cui = new Curses::UI( -color_support => 1, -compat => 0, -utf8 => 1);
 
 #Create a menu ^
 

diff --git a/perl/curses/edit.pl b/perl/curses/edit.pl
index 4f424d19835a0f41d568271841d783f0f505faa6..3f8681f1b1aad0e6d2e8494c5206046965e76ddc 100755 (executable)
--- a/perl/curses/edit.pl
+++ b/perl/curses/edit.pl
@@ -14,7 +14,7 @@ use Curses::UI;
 our $path = "/home";
 our $file = "";
 
-my $cui = new Curses::UI(-color_support => 1, -language => "czech");
+my $cui = new Curses::UI(-color_support => 1, -language => "czech", -utf8 => 1);
 my @menu = (
     {
          -label => 'Soubor', -submenu =>

diff --git a/perl/curses/file.pl b/perl/curses/file.pl
index e0e4935592f441e809cbd11f90ca05a09a2285c7..6894fbe3e8397ea5d8e2107f6249fb3ffe6e8f7e 100755 (executable)
--- a/perl/curses/file.pl
+++ b/perl/curses/file.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 
            use Curses::UI;
-           my $cui = new Curses::UI( -color_support => 1, -compat => 0 );
+           my $cui = new Curses::UI( -color_support => 1, -compat => 0, -utf8 => 1);
            #my $win = $cui->add('window_id', 'Window');
 
            my $file = $cui->filebrowser(

diff --git a/perl/curses/textentry.pl b/perl/curses/textentry.pl
index ed7a075dde2c5f21811d8213233c10895188dceb..886852ef72bfeac03561c27e44d022fb8e813470 100755 (executable)
--- a/perl/curses/textentry.pl
+++ b/perl/curses/textentry.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 
            use Curses::UI;
-           my $cui = new Curses::UI( -color_support => 1, -compat => 0 );
+           my $cui = new Curses::UI(-color_support => 1, -compat => 0, -utf8 => 1);
            my $win = $cui->add('window_id', 'Window');
 
            my $textentry = $win->add(