Re: Huge font in perl Tk

The following works fine for me under Windows XP:

use strict;
use warnings;
use Tk;

my $main = MainWindow->new ();
my $label = $main->Label(-text => 'Text', -font => 'arial 490')->pack 
+();
MainLoop;
[download]

Note that Label doesn't seem to understand -textvariable

Perl is Huffman encoded by design.

Comment on Re: Huge font in perl Tk Select or Download Code

Replies are listed 'Best First'.
Re^2: Huge font in perl Tk by nyk (Novice) on Oct 18, 2005 at 22:57 UTC
Doesn't work here (gentoo linux). Someone on IRC tested my code and it produced a huge font, but I just get the 1cm font on my system. What could be wrong?	[reply]
Re^3: Huge font in perl Tk by GrandFather (Saint) on Oct 18, 2005 at 23:17 UTC
Appart from the textvariable/text thing, the code seems sensible. The only things I can think of are fairly bizzare - like case sensitive name (but then it shouldn't work at all), or the font system doesn't allow you to generate a larger size than that with that face (you could try a different face). Perl is Huffman encoded by design.	[reply]
Re^3: Huge font in perl Tk by Tanktalus (Canon) on Oct 19, 2005 at 03:45 UTC
Works here (gentoo linux). To be honest, I suspect that you need to emerge some font stuffs or something. e.g., freefonts (boy did that help - I wish I knew about that set years ago before I got gentoo...). Or perhaps your X server or X font server ... it's hard to tell. Can you bring up other applications and get huge fonts, say in openoffice.org or something?	[reply]