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();
2016-05-28T07:06:46 der_thomas(Bezugnehmend auf den Code den ich oben zeigte)
2016-05-28T07:06:46 der_thomasDazu müsste ich den Default-wert auslesen....was mir nicht gelingen mag...
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;