From: Harvie <tomas@mudrunka.cz>
Date: Tue, 1 Feb 2011 02:24:28 +0000 (+0100)
Subject: Now making use of new utf8 support when using Curses::UI
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=c9d9797f431c22b659edc6864d7289cf379823d5;p=mirrors%2FPrograms.git

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

diff --git a/perl/curses/curses.pl b/perl/curses/curses.pl
index 4dce257..dab5618 100755
--- 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 4f424d1..3f8681f 100755
--- 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 e0e4935..6894fbe 100755
--- 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 ed7a075..886852e 100755
--- 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(