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


in reply to Re^5: 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?

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.
  • Comment on Re^6: Is there a way to make Prima widgets accept double byte characters?
  • Download Code

Replies are listed 'Best First'.
Re^7: Is there a way to make Prima widgets accept double byte characters?
by dk (Chaplain) on Jun 09, 2011 at 09:43 UTC
    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 :)

        fixed