[perl-win32-gui-users] bug_or_feature [1]

[Renat Araslanow]

#OS w2k pro SP1 rus ActivePerl 5.6.1.626
#Win32::GUI::Version=0.0.558

use Win32::GUI;

    $W=new Win32::GUI::Window(
        -name=>"bug_or_feature",
        -title=>"bug_or_feature - can't see label.",
        -pos=>[100,50],
        -size=>[500,500],
        );

    $font1=new Win32::GUI::Font(
        -name=>'Arial',
        -size=>24,
        -escapement=>900,
        );

    $W->AddLabel(-name=>"ok",-left=>0,-top=>100,-width=>500,-height=>500,
        -font=>$font1,
        -text=>"ooooooo");

    $W->AddLabel(-name=>"explanation",-pos=>[0,0],-size=>[500,100],
        -text=>"Subject: Can't see label with user defined font\nReason:
'-escapement' tag in font definition"
        );

    $W->Show();
    $W->Dialog;

sub bug_or_feature_Terminate
{
    return -1;
}