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

[Peter E. <Pet...@at...>]

duh. you said that. I must need more coffee...

> -----Original Message-----
> From: Peter Eisengrein 
> Sent: 05 August 2001 11:58
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] bug_or_feature [1]
> 
> 
> 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:tr...@ya...]
> > Sent: 04 August 2001 15:53
> > To: per...@li...
> > 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
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
>