Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^5: Is there a way to make Prima widgets accept double byte characters?

by dk (Chaplain)
on Jun 08, 2011 at 16:33 UTC ( #908739=note: print w/replies, xml ) Need Help??


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
(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.
      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; }
        Meanwhile, would that help you?

        Why yes it would, thank you very much :)

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;
    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!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://908739]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2022-08-15 07:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?