#!/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.
In reply to Re^6: Is there a way to make Prima widgets accept double byte characters?
by Anonymous Monk
in thread Is there a way to make Prima widgets accept double byte characters?
by ZJ.Mike.2009
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |