Not sure what the '-escapement' tag in the font was supposed to do but when I removed it the label became visible.
> -----Original Message----- > From: Renat Araslanow [mailto:[EMAIL PROTECTED] > Sent: 04 August 2001 15:53 > To: perl-win32-gui-users@lists.sourceforge.net > Subject: [perl-win32-gui-users] bug_or_feature [1] > > > #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; > } > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Perl-Win32-GUI-Users@lists.sourceforge.net > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users >
