>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
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
