How to display unicode charset in Win32::GUI ?

[FPerl]

Some parts of this message have been removed. Learn more about Nabble's security policy.

Hi,


I'm working on a project and i added the multilanguage support.


Perl : (v5.12.2) MSWin32-x86 build 1203 294165,
OS : Windows 7 x86,
Installed languages in OS : English,Turkish


How to display the unicode charset in Win32::GUI Label->Text?
Example; added "russian language" but not display in label text.
I'm searching for solutions 4 days.
I'm founded this solutions (and other)


http://webcache.googleusercontent.com/search?q=cache:5HoSSFnETV4J:www.mail-archive.com/perl-win32-gui-users%40lists.sourceforge.net/msg04941.html+perl+win32+GUI+unicode+label&cd=5&hl=tr&ct=clnk&gl=tr&source=www.google.com.tr

http://webcache.googleusercontent.com/search?q=cache:l_gAFrhiqxMJ:www.mail-archive.com/perl-win32-gui-users%40lists.sourceforge.net/msg04944.html+perl+win32+GUI+unicode+label&cd=6&hl=tr&ct=clnk&gl=tr&source=www.google.com.tr

[My idea]
I have install the russian language in my OS?  This is a solution?

Here is my codes.2 encode methods testing.

Turkish charset testing : ç

use warnings; use strict; use Win32::GUI(); use Data::Dumper; use Encode qw/decode/; my $str = "ç"; # This is "turkish" charset "ç" $str = decode("utf-8", $str); # decoding "ç" char with utf-8 print Dumper($str); # And "ç" char dumped, output : \x{e7} my $win = new Win32::GUI::Window( -name => "win", -text => "Unicode Test", -width => 300, -height => 200 ); $win->AddLabel( -name => "labeun", -text => "\x{e7}", # <--- Write here hex code char "\x{e7}" # and look at the results. Displaying label text "ç". No problem. -width => 50, -height => 20 ); $win->Center(); $win->Show(); Win32::GUI::Dialog(); 1;

I tried ucs2 encoding (and other) but didn't. 

Example : Russian charset ф 

use warnings;
use strict;
use Win32::GUI();
use Encode qw/encode decode/;
use Data::Dumper;
my $str = "ф"; # This is "russian" charset. * a == ф *
my $utf8 = decode("utf-8", $str); # decoding "ф" char with utf-8
my $ucs2 = encode("UCS-2LE",$utf8);
# and encoding char with UCS-2LE.Others have tried.!
# Other encoding schemes : UCS-2BE, UCS-2LE, UTF-16, 
# UTF-16BE, UTF-16LE, UTF-32, UTF-32BE, UTF-32LE    

my $win = new Win32::GUI::Window(
-name => "win",
-text => "Unicode Test",
-width => 300,
-height => 200
);

$win->AddLabel(
-name => "labeun",
-text => "$ucs2", # <--- Writing here encoding char.Displaying label t
+ext "unkown". FAIL
-width => 50,
-height => 20
);
$win->Center();
$win->Show();
Win32::GUI::Dialog();
1;

No problem other perl gui modules. Tested "russian charset" with wxPerl, Perl/Tk, Gtk2 modules and working good...But The whole project written with Win32::GUI module.Can not change the "win32-gui" module with others! Did i use a different module? :)The current project consists of 15.000 lines. Rewrite project with other perl GUI module? :)
OR
Can i use a combination of 2 modules?
Ex: Win32::GUI and wxPerl(Label) module combination....?

Regards...
Ahmet.

------------------------------------------------------------------------------
Free Software Download: Index, Search & Analyze Logs and other IT data in
Real-Time with Splunk. Collect, index and harness all the fast moving IT data
generated by your applications, servers and devices whether physical, virtual
or in the cloud. Deliver compliance at lower cost and gain new business
insights. http://p.sf.net/sfu/splunk-dev2dev 
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

[Octavian Rasnita-2]

From: "gff gffg" <taraku12@...>
>
> Hi,
> I'm working on a project and i added the multilanguage support.
> Perl : (v5.12.2) MSWin32-x86 build 1203 294165,OS : Windows 7 x86,Installed languages in OS : English,Turkish
> How to display the unicode charset in Win32::GUI Label->Text?Example; added "russian language" but not display in label text.I'm searching for solutions 4 days.I'm founded this solutions (and other)
> http://webcache.googleusercontent.com/search?q=cache:5HoSSFnETV4J:www.mail-archive.com/perl-win32-gui-users%40lists.sourceforge.net/msg04941.html+perl+win32+GUI+unicode+label&cd=5&hl=tr&ct=clnk&gl=tr&source=www.google.com.tr
> http://webcache.googleusercontent.com/search?q=cache:l_gAFrhiqxMJ:www.mail-archive.com/perl-win32-gui-users%40lists.sourceforge.net/msg04944.html+perl+win32+GUI+unicode+label&cd=6&hl=tr&ct=clnk&gl=tr&source=www.google.com.tr
>


Win32::GUI doesn't support Unicode.

The solution is to use WxPerl which is much more powerful (and portable on other operating systems than Windows).
WxPerl doesn't have a syntax as nice as Win32::GUI, but it is better maintained and what's interesting for you... it fully supports Unicode.

Octavian


------------------------------------------------------------------------------
Free Software Download: Index, Search & Analyze Logs and other IT data in
Real-Time with Splunk. Collect, index and harness all the fast moving IT data
generated by your applications, servers and devices whether physical, virtual
or in the cloud. Deliver compliance at lower cost and gain new business
insights. http://p.sf.net/sfu/splunk-dev2dev 
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/