Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Tk::Canvas font problem

by mawe (Hermit)
on Jun 27, 2004 at 15:58 UTC ( [id://369975]=note: print w/replies, xml ) Need Help??


in reply to 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();

Hope this helps. mawe

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)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://369975]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-03-29 09:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found