10 Buttons, 4 Reihen, 1 Schleife - #118319 (Graphische Oberflächen)

FoolAck

2009-01-26 00:12

User since
2008-05-02
69 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $buttonID = 1;

for my $x (0 .. 2) {
    for my $y (0 .. 2) {
        $mw->Button(-text => $buttonID)->grid(-row => $x, -column => $y);
        $buttonID++;
    }
}

MainLoop();

Sowas? Die Null müsstest du dann noch einzeln machen. Für sowas ist "grid" gedacht.
Und ich würde für die Buttons noch einen eigenen Frame machen, also nicht einfach ins MainWindow "klatschen". (Hab ich halt nur hier gemacht, damit das Beispiel sich aufs Essentielle konzentriert.)