Re: [wxperl-users] Displaying UTF-8 encoded strings

[Glen Koundry <gkoundr@op...>]

> You can use Encode.pm to the same result.

Someone had suggested this already, but I'm not sure what I'm supposed to do with the Encode module.  I tried converting to UTF-16, UTF-32 and UCS2 and it still doesn't display properly.

>I thing you are on Windows. Which version? Which version >of Perl/ActiveState build?

I am using Windows 2000 with ActiveState Perl version 5.8.  However, I also tried it on a machine running Gentoo Linux but it still wouldn't work.

for a test case, try this (the print statement is to show the Japanese text if your terminal can handle UTF-8):

use Wx;
package MyFrame;
use base 'Wx::Frame';

sub new {
    my $ref = shift;
    my $self = $ref->SUPER::new( undef,
    -1, 'wxPerl rules', [-1, -1], [250, 300],);

    my $panel = Wx::Panel->new( $self, -1,);

    my $list = Wx::ListBox->new($panel,-1,[20,20],[210,180],
       ["aa","bb","cc"],wxLB_SINGLE);
    $utf8 ="\xe8\xbb\xbd\xe3\x81\x84\xe3\x81";
    $utf8.="\x8b\xe3\x82\x8b\xe3\x81\x84\xe8";
    $utf8.="\x8c\xb6\xe8\x89\xb2\xe3\x81\xa1";
    $utf8.="\xe3\x82\x83\xe3\x81\x84\xe3\x82";
    $utf8.="\x8d";
    $list->Append($utf8);
    print "$utf8\n";

    return $self;
}package MyApp;

use base 'Wx::App';

sub OnInit {
    my $frame = MyFrame->new;
  $frame->Show( 1 );
}

package main;

my $app = MyApp->new;
$app->MainLoop;

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Matt Rosin <mattr@te...>]

Hi Glen and crazy, 

> It is an encoding problem :) try using Encode::Unicode  to convert the utf8 to unicode

I am about to get to the same problem, in a wxperl-based workflow
tracking program I'm writing. So far in drawing the diagram 
I did get Japanese text to show up with GD.pm.

I'm using the JCode module for utf8 output, it is what's used mostly now
for Japanese encoding conversion and I've used it in a lot of websites.
It can automatically convert from Japanese shift jis, jis, euc
encodings.

Please report back if you solve your problem. I was working on Win98
Japanese, with I think a non-unicode wx, but anyway we shall see this
week..

Here is how I am using GD to draw a gantt chart based on Excel data,
looks pretty so far! (rolling my own as I only saw an Imagemagick based
gantt module in cpan). Hope it helps.

 use GD;
 use GD::Text;
 use JCode;

# convert to utf8 (Shift_JIS doesn't work)
 my $labelstr = "some japanese text";
 my $j = Jcode->new($labelstr);
 my $labelutf8 = $j->utf8;

# font settings
 my $gdfontpath = "c:\\windows\\fonts\\";
 my $gdshortfontname ="MSGOTHIC.TTC";
 my $gdlongfontname = $gdfontpath . 
   $gdshortfontname;
 my $ptsize = 10;
 my $angle = 0;
 my %txtopts = ( charmap => 'Unicode',
  linespacing => 0.6,
  ); # note line endings should be \r\n.

# bounds checking skipped..

# draw it
   @bounds = $img->stringFT($labelcolor,$gdlongfontname,$ptsize,$angle,
$dx1,$labely,$labelutf8,\%txtopts);

Cheers,

Matt

[wxperl-users] Re: Displaying UTF-8 encoded strings

[Joe Shmoe <lush11112000@ya...>]

 
> It is an encoding problem :) try using
Encode::Unicode  to convert the > utf8 to unicode
 
I'm confused.  UTF-8 is a Unicode encoding.  The
Encode::Unicode module seems to just convert to
different encodings.  I tried converting to
UTF-16,UTF-32, and UCS2 but they still show up as
garbage in wxPerl.

 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Glen Koundry <gkoundr@op...>]

> You can use Encode.pm to the same result.

Someone had suggested this already, but I'm not sure what I'm supposed to do with the Encode module.  I tried converting to UTF-16, UTF-32 and UCS2 and it still doesn't display properly.

>I thing you are on Windows. Which version? Which version >of Perl/ActiveState build?

I am using Windows 2000 with ActiveState Perl version 5.8.  However, I also tried it on a machine running Gentoo Linux but it still wouldn't work.

for a test case, try this (the print statement is to show the Japanese text if your terminal can handle UTF-8):

use Wx;
package MyFrame;
use base 'Wx::Frame';

sub new {
    my $ref = shift;
    my $self = $ref->SUPER::new( undef,
    -1, 'wxPerl rules', [-1, -1], [250, 300],);

    my $panel = Wx::Panel->new( $self, -1,);

    my $list = Wx::ListBox->new($panel,-1,[20,20],[210,180],
       ["aa","bb","cc"],wxLB_SINGLE);
    $utf8 ="\xe8\xbb\xbd\xe3\x81\x84\xe3\x81";
    $utf8.="\x8b\xe3\x82\x8b\xe3\x81\x84\xe8";
    $utf8.="\x8c\xb6\xe8\x89\xb2\xe3\x81\xa1";
    $utf8.="\xe3\x82\x83\xe3\x81\x84\xe3\x82";
    $utf8.="\x8d";
    $list->Append($utf8);
    print "$utf8\n";

    return $self;
}package MyApp;

use base 'Wx::App';

sub OnInit {
    my $frame = MyFrame->new;
  $frame->Show( 1 );
}

package main;

my $app = MyApp->new;
$app->MainLoop;

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Jouke Visser <jouke@pv...>]

Try this:

use Wx;
package MyFrame;
use base 'Wx::Frame';
use Encode;
sub new {
     my $ref = shift;
     my $self = $ref->SUPER::new( undef,
     -1, 'wxPerl rules', [-1, -1], [250, 300],);

     my $panel = Wx::Panel->new( $self, -1,);

     my $list = Wx::ListBox->new($panel,-1,[20,20],[210,180],
        ["aa","bb","cc"],wxLB_SINGLE);
     $utf8 ="\xe8\xbb\xbd\xe3\x81\x84\xe3\x81";
     $utf8.="\x8b\xe3\x82\x8b\xe3\x81\x84\xe8";
     $utf8.="\x8c\xb6\xe8\x89\xb2\xe3\x81\xa1";
     $utf8.="\xe3\x82\x83\xe3\x81\x84\xe3\x82";
     $utf8.="\x8d";
     Encode::_utf8_on($utf8);
     $list->Append($utf8);
     print "$utf8\n";

     return $self;
}package MyApp;

use base 'Wx::App';

sub OnInit {
     my $frame = MyFrame->new;
   $frame->Show( 1 );
}

package main;

my $app = MyApp->new;
$app->MainLoop;

HTH,

-- 
Jouke Visser
+-------------------------------------------------------------------+
|jouke@...               | http://www.pvoice.org             |
|                               | http://jouke.pvoice.org           |
+-------------------------------------------------------------------+

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Glen Koundry <gkoundr@op...>]

> Try this:

OK, that worked.  I'm not too sure why though. It seems kind of odd that an undocumented function is needed for wxPerl to display Unicode text.  Does wxPerl not yet fully support wxWindows' Unicode features or is my whole approach wrong?  Basically, I have a file with EUC-JP encoded text that I read in and convert to UTF-8 with  Unicode::Japanese.

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Jouke Visser <jouke@pv...>]

Hi Glen,

Glen Koundry wrote:
> OK, that worked.  I'm not too sure why though. It seems kind of odd
> that an undocumented function is needed for wxPerl to display Unicode
> text.  Does wxPerl not yet fully support wxWindows' Unicode features
> or is my whole approach wrong?  Basically, I have a file with EUC-JP
> encoded text that I read in and convert to UTF-8 with
> Unicode::Japanese.
This is not an undocumented function. It's in the perldoc of Encode.pm. 
Perl doesn't always automatically understand that a string is UTF8 
encoded, so that's why I indicated it manually.

You may want to read more on Perl's way of unicode handling in `perldoc 
perlunicode` or `perldoc perluniintro`

HTH,

-- 
Jouke Visser
+-------------------------------------------------------------------+
|jouke@...               | http://www.pvoice.org             |
|                               | http://jouke.pvoice.org           |
+-------------------------------------------------------------------+

Re: [wxperl-users] Displaying UTF-8 encoded strings

[Jouke Visser <jouke@pv...>]

Hi,

> Please report back if you solve your problem. I was working on Win98
> Japanese, with I think a non-unicode wx, but anyway we shall see this
> week..
wxPerl handles Unicode like it should. If you try to use Unicode on 
Win98 systems (or WinME/Win95), you need to compile wxWidgets with MSLU 
and have the unicows.dll in your path.

If you need an example of an application that handles Unicode on both 
Win9x/ME and WinXP/2K like systems, take a look at pVoice or browse 
through its sources at http://opensource.pvoice.org

HTH

-- 
Jouke Visser
+-------------------------------------------------------------------+
|jouke@...               | http://www.pvoice.org             |
|                               | http://jouke.pvoice.org           |
+-------------------------------------------------------------------+