[Tk] Alles insgesamt etwas größer machen (Graphische Oberflächen)

[thread]16555[/thread]

[Tk] Alles insgesamt etwas größer machen

Tags: perl5 GUI Tk Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+2 replies
pktm

2011-07-21 21:47

User since
2003-08-07
2921 articles
BenutzerIn

Hallo!

Kann man eigentlich die Elemente einer grafischen Oberfläche insgesamt etwas größer machen?
Wenn ich z.B. ein Fenster mit Menuleiste, Statusleiste, einem Label und einem Entry-Widget habe, kann ich dann Tk anweisen einfach alles 50% größer darzustellen?
Bei den Grundeinstellungen ist immer alles so klein.

Grüße,
pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- murphy
  
  2011-07-24 17:08
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  Also in Tcl könnte man zum Beispiel so etwas machen:
  
  Code: (dl )
  
  font configure TkDefaultFont -size [expr [font configure TkDefaultFont -size] * 3 / 2]
  
  Entsprechend mit Tkx zum Beispiel:
  
  Code (perl): (dl )
  
  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:
  
  Code (perl): (dl )
  
  1 2
  
  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:
  
  Code (sh): (dl )
  
  perl my-script.pl -font 'TkDefaultFont 18'
  
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2011-07-21 21:47.