Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
use strict;
use warnings;
package prima_test;
use Prima qw (Application ComboBox);
my $mw = Prima::MainWindow->create(
# here there are some options, mainly that more common:
size => [ 400, 400 ],
menuItems => [
[
"~File" => [
[], # division line
[ "E~xit" => "Exit" ]
]
]
],
# events
onPaint => sub {
my ( $self, $canvas ) = @_;
$canvas->clear;
$canvas->color( cl::Red );
$canvas->line( 0, 0, 800, 800 );
}
);
$mw->insert(
'ComboBox',
name => 'ComboBox',
size => [ 100, 100 ],
# other options as needed
);
Prima->run;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.