[perl-win32-gui] "Label" text problem

[Max Kozlov]

Hello perl-win32-gui,

  i new in Win32::GUI and have small problem in my test script:

use Win32::GUI;

$M = Win32::GUI::MakeMenu(
    "&File"     => "File",
    " > &Open"  => "Open",
    " > &Save"  => "Save",
    " > &More..."  => "More",
    " > E&xit"  => "Exit",
);

$L = $W->AddLabel(-text => "Text, just text...", -left => 40, -top => 45,
                  -truncate => 0);

$W->Show;

Win32::GUI::Dialog();
sub Open_Click {
    $L->Text('Open pressed...');
}
sub Save_Click {
    $L->Text("Save pressed...");
}
sub More_Click {
    $L->Text('More pressed...');
}

this code must change label to "open pressed", "save pressed" and so
on (as i think :) but i get only "open" "save" "more" i.e. all text beyond
"space" disappeared :-\.

Best regards,
 Max                          mailto:[EMAIL PROTECTED]