Opened by life_heart at 2007-06-10 15:46
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Statt ->pack könntest du ->grid verwenden und die Spalte und Reihe explizit angeben. Wenn du gleiche Breiten und Höhen bei den Spalten und Reihen brauchst, kannst du gridColumnconfigure und gridRowconfigure mit der Option -uniform verwenden.
Ungefähr so:
Ungefähr so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use Tk;
$top = tkinit;
# Gitter erzeugen
for (1..9) {
$top->Label(-text => $_)->grid(-row => ($_-1)/3,
-column => ($_-1)%3,
);
}
$top->Label(-text => "0")->grid(-row => 3, -column => 1);
# Gleiche Breiten und Höhen erzwingen:
for (0..2) {
$top->gridColumnconfigure($_, -weight => 1, -uniform => 1);
}
for (0..3) {
$top->gridRowconfigure($_, -weight => 1, -uniform => 1);
}
MainLoop;