> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, July 13, 2004 7:29 AM
> To: [EMAIL PROTECTED]
> Subject: perl Tk font question
>
>
> 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 !
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
Don't remember where I found this.. It will give you a window so you can
select any installed font and set the font size. The font is applied in
sub apply_font.
--mikej
my $mw = MainWindow->new(-title => 'Font selection');
my $f = $mw->Frame->pack(-side => 'top');
my $family = 'Courier';
my $be = $f->BrowseEntry(-label => 'Family:', -variable => \$family,
-browsecmd => sub { apply_font();})->pack(-fill => 'x', -side => 'left');
$be->insert('end', sort $mw->fontFamilies);
my $size = 10;
my $bentry = $f->BrowseEntry(-label => 'Size:', -variable => \$size,
-browsecmd => sub { apply_font();})->pack(-side => 'left');
$bentry->insert('end', (3 .. 32));
sub apply_font {
$text->configure(-font =>
[-family => $family,
-size => $size]);
}
}
--mikej
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
