[Tk] -background wert auslesen (gelöst) - #184868 (Graphische Oberflächen)

GUIfreund

2016-06-01 15:53

User since
2011-08-08
559 Artikel
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 )

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