Hier ein kleines Beispiel wie ich ein Canvas erzeuge und Text darauf zeichne:
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use Tk;
use Tk::Canvas;
my $mw = MainWindow->new();
my $canvas = $mw->Canvas()->pack();
$canvas->createText(10,20,-text => "Arial 12 bold", -font => "Arial 12 bold" , -fill => "red", -anchor => "w");
MainLoop;
Jetzt stehe ich vor dem Problem eine Schriftart wie z.b. "Times New Roman", welche aus mehr wie einem Wort besteht zu übergeben.
Wenn ich die Option wie folgt übergebe:
-text => "Times New Roman 12 bold"
kommt die Fehlermeldung:
'New' isn't numeric at C:/Perl/site/lib/Tk.pm line 250.
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+5 replies
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
