>>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 !
>>_______________________________________________
>
[code snip]
>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...)
>
>========================
>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 ??
>_______________________________________________
1. The font really used if you don't specify any (or non-existent) will
always be the default for the machine (in most cases, on Windoze - MS
Sans Serif).
2. What do you mean "doesn't work"? I ran your example (XP pro, Perl
5.8.4-810) and it works fine:
my @fo = $widget->fontFamilies;
foreach (@fo){ chomp; print "$_\n"; }
Output:
=======
System
Terminal
Fixedsys
Roman
Script
Modern
Small Fonts
MS Serif
...
...
...
=====================================
(I got 227 lines...)
I toyed with a few font names and it displayed correctly.
Perhaps try to send some screenshots to tell us what you want and what
you're getting.
All the best,
Schichmanter Eitan
SDM Team Developer,
Petah-Tikva, Israel
Intel(r)
[EMAIL PROTECTED]
phone: +972-3-9207046
------------------------------
Schichmanter Eitan,
CM Consultant and Developer,
LMB-Consulting LTD.
[EMAIL PROTECTED]
www.lmb.co.il
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
