#!/usr/bin/env perl

use Prima qw(Application Buttons MsgBox);

my $window = Prima::MainWindow->new(
	text=>'Hello world!',
	menuItems=>[
		'~File', [
			['~Open', 'Ctrl+O', '^O', sub{message('open!')}],
			['~Save as...', sub{message('save as!')}]
		]
	],
	size=>[200, 200]
);

$window->insert(Button=>
	text=>'Click me',
	growMode=>gm::Center,
	onClick=>sub{message("Hello!")}
);

run Prima;