8 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;
use Tk;
my $mw = tkinit ();
$mw-> state ('zoomed'); #Dadurch sieht man besser was ich meine
my $antwort;
$mw-> Radiobutton ( -text => "Beispiel Radio",
-font => "Arial 20",
-variable => \$antwort,
-value => "A",
-bg => "Cyan",
-activebackground => "yellow",
)-> pack (-side => 'left');
MainLoop ();
1 2 3 4 5 6 7 8 9 10 11 12 13
$mw->Radiobutton( -text => "Beispiel Radio", -font => "Arial 20", -variable => \$antwort, -value => "A", -bg => "Cyan", -activebackground => "yellow", )->place( -x => 0, -y => 0, -height => 20, -width => 200 );
8 Einträge, 1 Seite |