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

[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 - button '-valign' tag misplacing.",
        -pos=>[100,50],
        -size=>[500,500],
        );

$W->AddButton(-name=>"but1",-left=>0,-top=>0,
                    -width=>200,-height=>90,
                   -title=>"here is '-valign=center'",
                   -align=>right,
                   -valign=>center,
                   -visible=>1);

$W->AddButton(-name=>"but2",-left=>100,-top=>100,
                                 -width=>200,-height=>90,
                   -title=>"and here - '-valign=top'",
                   -align=>right,
                   -valign=>top,
                   -visible=>1);

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

sub bug_or_feature_Terminate
{
    return -1;
}