Opened by der_thomas at 2016-05-27 22:52
User since
2013-09-07
158 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2013-09-07
158 Artikel
BenutzerIn
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...
Weiß da von euch jemand eine Lösung ?
MfG
Thomas
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