Re: Tk::Canvas font problem

Hi!

There is a shorter way to change the fontsize:

use Tk;

my $top = new MainWindow;
my $can = $top->Canvas()->pack();

$can->createText(50,10,-text=>"Hello",-font=>"Century 10");
$can->createText(50,50,-text=>"Hello",-font=>"Century 30");

MainLoop();
[download]

Hope this helps. mawe

Comment on Re: Tk::Canvas font problem Download Code

Replies are listed 'Best First'.
Re^2: Tk::Canvas font problem by Anonymous Monk on Jun 29, 2004 at 20:38 UTC
Thanks for all the replies everybody. After pulling my hair out I tried my code on an another machine. It worked without major problems. I'm going to do a reinstall on my first machine. Another question: can you recommend any good links or books for learning Perl\Tk? The perldoc aren't really very helpfull to a beginner. (I like the Learning Perl way of explaining things: code examples)	[reply]