#!perl -w
use strict;
use warnings;

use Win32::GUI;

my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

my $main = Win32::GUI::Window->new(
	-name   => 'Main',
	-width  => 100,
	-height => 100,
	-text   => 'Perl',
);

# Create a new Win32::GUI::Font object with which
# we'll draw the text
my $font = Win32::GUI::Font->new(
	-name => "Comic Sans MS", 
	-size => 24,
);

my $label = $main->AddLabel(
	-text       => $text,
	-font       => $font,    # use the font we created
	-foreground => 0x0000FF, # use red text
);


$main->Resize(
	$label->Width()  + $main->Width()  - $main->ScaleWidth(),
	$label->Height() + $main->Height() - $main->ScaleHeight()
);

$main->Show();
Win32::GUI::Dialog();
exit(0);

sub Main_Terminate {
	return -1;
}
