
use Win32::GUI;

$I = new Win32::GUI::Icon("camel.ico");
$C = new Win32::GUI::Bitmap("harrow.cur", 2);

# NOTE: $C should be Win32::GUI::Cursor...

$WC = new Win32::GUI::Class(
    -name => "simply_perl_win32_gui", 
    -cursor => $C,
    -icon => $I,
    -color => 2,
);
if(!$WC) {
    die "Window class creation error: ", Win32::GetLastError(), "\n";
}
$W = new Win32::GUI::Window(
    -name => "Window",
    -font => $F,
    -title => "Win32::GUI::Class test",
    -class => $WC,
    -left => 100, 
    -top => 100,
    -width => 300, 
    -height => 200,
);
if(!$W) {
    die "Window creation error: ", Win32::GetLastError(), "\n";
}
$W->Show();
$W->Dialog();
