>It may be simple but
>I can't figure how to set font
>in tk widget /my font is <Courier New Cyr> cyrillic font/
>please help !
>_______________________________________________
use Tk;
use strict;
my $top = MainWindow->new();
my $text = $top->Label(
-font => '{Courier New Cyr} 32',
-text => 'Try me',)->pack();
MainLoop();
If your font name has more than one word in it, you need to put it
between braces like mentioned above.
32 is just the size of the font (put anything you like there...)
Works great on my end.
Make sure you have this font installed, and that your machine supports
cyrillic.
HTH
========================
Another font questions
1) If I set font like that(literally):
-font => '{nonexistent font} 32',
it works without indication of any error!
how I can find out which font is really used ??
2) After I installed latest perl v5.8.4 build 810
I get strange font quirks: like that --
first I get list of font families :
my @fo=$widget->fontFamilies;
foreach (@fo){chomp;print "$_\n";}
setting font with names from above list of font names
in almost all cases does not work !!
which is seems very strange to me
becouse with previous vers of perl (v5.8.0)
on this same machine(winXP pro) all such fonts worked like a charm !
does anybody have had any problems in this new version of perl ??
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
