Rahmen in Tk: Frage zu Rahmen in Tk - #46015 (Graphische Oberflächen)

ptk

2006-12-03 19:49

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

[quote=PerlProfi,03.12.2006, 18:14]Was ist ein Megawidget?[/quote]Ein zusammengebautes oder abgeleitetes Widget. Siehe perldoc Tk::mega

Quote
Ich habe mir gerade mal tk3d.h angesehen, eigentlich sollte es doch nicht so schwer sein, zu implementieren, dass die Rahmen Farbe vom Benutzer bestimmt wird, oder?

Nicht schwer ist relativ. Das ist nicht die einzige Stelle, man muss wohl auch tkUnix3d.h, tkWin3d.h etc. ändern, sowie -bordercolor-Optionen in den Widget-Implementationen einführen (tkFrame.c, tkButton.c etc.). Aber vielleicht sollten wir mal abwarten, was die neue "themed tk"-Erweiterung bringen wird?

Übrigens ist es doch mit -highlightthickness möglich, die Rahmenfarbe zu ändern. Man muss auch noch -highlightcolor setzen. Hier der geänderte Code:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $mw = tkinit;

$mw->Frame(-highlightbackground => "red",
           -highlightcolor => "red",
           -highlightthickness => 5,
           -background => "black")->pack(qw/-fill both -expand 1/);
$mw->Entry->pack;
$mw->geometry("200x200");

MainLoop;