Thread [Tk] -background wert auslesen (3 answers)
Opened by der_thomas at 2016-05-27 22:52

GUIfreund
 2016-06-01 15:53
#184868 #184868
User since
2011-08-08
559 articles
BenutzerIn
[default_avatar]
Dieser Beitrag hat mich dazu animiert, mich nach langer Abstinenz mal wieder mit Tk zu befassen.

2016-05-28T07:06:46 der_thomas
(Bezugnehmend auf den Code den ich oben zeigte)

Das ist hier der wichtige Punkt, deshalb möchte ich das nochmal betonen. Im allgemeinen liefert
Code: (dl )
1
2
...
$widget->cget("-background");

den aktuellen Wert von -background.

2016-05-28T07:06:46 der_thomas
Dazu müsste ich den Default-wert auslesen....was mir nicht gelingen mag...

Hilfe naht :-)
Die Tk-Option NORMAL_BG liefert die Default Background-Farbe verschiedener Widgets, darunter auch von Button. Dieses Beispiel-Skript
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Tk;
use Tk(qw/NORMAL_BG/);
use feature 'say';

my $mw = Tk::MainWindow->new;
my $bt = $mw->Button(-bg => 'green', -text => 'green')->pack(-fill => 'x');
say 'background ', $bt->cget(-bg);
my $col = NORMAL_BG;
say "default background $col";
$mw->Button(-bg => $col, -text => $col)->pack(-fill => 'x');
$mw->Button(-text => 'default')->pack(-fill => 'x');
MainLoop;

zeigt, dass Button die Default Background-Farbe SystemButtonFace hat.
Gruß
GUIfreund

View full thread [Tk] -background wert auslesen