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

der_thomas
 2016-05-27 22:52
#184834 #184834
User since
2013-09-07
158 articles
BenutzerIn
[default_avatar]
Hallo,

ich habe mit einer tk GUI folgendes Problem:
Ich will Button 'einfärben' - was kein Problem ist (siehe Code), ich will dieses 'Einfärben' aber auch wieder rückgängig machen können. D.h. es sollen dann die Systemfarben verwendet werden, also so wie wenn ich den Parameter -background gar nicht angegeben hätte.

Dazu müsste ich den Default-wert auslesen....was mir nicht gelingen mag...

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

use v5.12;
use Tk;

sub main {
my $fenster = MainWindow->new();
my $beenden = $fenster -> Button(
-text => "Beenden",
-background => 'green', # was für ein Wert ist hier wenn ich -background nicht angebe ?
-width => 15)
-> grid();

MainLoop();
}
main();


Weiß da von euch jemand eine Lösung ?

MfG
Thomas

View full thread [Tk] -background wert auslesen