http://qs1969.pair.com?node_id=908739


in reply to Re^4: Is there a way to make Prima widgets accept double byte characters?
in thread Is there a way to make Prima widgets accept double byte characters?

Hi,

Can you write me to dmitry@karasik.eu.org? This way we could solve the problem more productively. Also, can you tell which IME did you install? I've installed one called "Chinese Traditional Array 6.0" something, chances are that if you used something else, I should try it too.

Also, it wouldn't work the way you installed it - you need to run 

perl Makefile.PL
dmake
dmake install

[download]
(assuming you've running strawberry perl, some other make or nmake otherwise)
  • Comment on Re^5: Is there a way to make Prima widgets accept double byte characters?
  • Download Code

Replies are listed 'Best First'.
Re^6: Is there a way to make Prima widgets accept double byte characters?
by Anonymous Monk on Jun 09, 2011 at 00:23 UTC
    While you're fixing stuff, how to do multiple apps? 
    #!/usr/bin/perl --
use strict;
use warnings;

Main( @ARGV );
exit( 0 );

sub Main {
    ShowPrima();
    ShowPrima();
}
sub ShowPrima {
    require Prima ;
    require Prima::Buttons;
    require Prima::Application;
    $::application ||= Prima::Application-> create( qw' name Prima ');
    my $mw = Prima::MainWindow->create(
        text     => 'Hello world!',
        size     => [ 200, 200],
    );
    $mw-> insert( Button =>
        centered => 1,
        text     => 'Hello world!',
        onClick  => sub { $::application-> close },
    );

#~     Prima->run;
    $::application ->go;
}
__END__
Illegal object reference passed to Component.get_components at C:/perl
+/site/5.12.2/lib/MSWin32-x86-multi-thread/Prima/Classes.pm line 193.

    [download]
[reply]
[d/l]
      Seems like a bug, or at least as an unintended use . Will try to fix, watch github for changes. Meanwhile, would that help you? 
      #!/usr/bin/perl --
use strict;
use warnings;

Main( @ARGV );
exit( 0 );

sub Main {
    ShowPrima();
    ShowPrima();
}
sub ShowPrima {
    require Prima ;
    require Prima::Buttons;
    require Prima::Application;
    $::application ||= Prima::Application-> create( qw' name Prima ');
+    
    my $mw = Prima::MainWindow->create(
        text     => 'Hello world!',
        size     => [ 200, 200],
    );
    $mw-> insert( Button =>
        centered => 1,
        text     => 'Hello world!',
        onClick  => sub { $mw-> cancel },
    );
    $mw-> execute;
}

      [download]
[reply]
[d/l]
        Meanwhile, would that help you?

        Why yes it would, thank you very much :)

[reply]
Re^6: Is there a way to make Prima widgets accept double byte characters?
by ZJ.Mike.2009 (Scribe) on Jun 10, 2011 at 07:34 UTC

    Thank you, Dmitry!

    It finally works although with many problems. But it's on the right track :) LOL

    I added extra two lines of code which I mentioned earlier in this thread and then as you suggest I did the "makefil.pl dmake dmake install" 3-step installation rather than just running ms_install.pl. 
    case WM_IME_CHAR:
ev. key. code   = mp1;

    [download]
    It now works but with a lot of problems. Okay, I'll write to the mail address you specified with more details.

    Thank you again!

[reply]
[d/l]

In Section Seekers of Perl Wisdom