Also in Tcl könnte man zum Beispiel so etwas machen:
font configure TkDefaultFont -size [expr [font configure TkDefaultFont -size] * 3 / 2]
Entsprechend mit Tkx zum Beispiel:
Tkx::font_configure('TkDefaultFont', -size => int(Tkx::font_configure('TkDefaultFont', -size) * 1.5));
Wenn man nur einzelne Widgettypen beeinflussen möchte, wäre es wohl sinnvoll, die Stilunterstützung zu verwenden. Also zum Beispiel:
Tkx::ttk__style_configure('TButton', -font => 'Monospace 18');
my $btn = Tkx::ttk__button(-text => 'Schrift fester Breite');
Wie das Äquivalent für Perl/Tk aussähe weiß ich nicht genau. Stilunterstützung gibt es bei diesem völlig veralteten Paket sicher nicht, die Standardschriftgröße kann man aber bestimmt trotzdem verstellen. Soweit ich weiß ist eine Möglichkeit, einfach Kommandozeilenoptionen zu verwenden:
perl my-script.pl -font 'TkDefaultFont 18'
When C++ is your hammer, every problem looks like your thumb.
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
