|
![]() ![]() ![]() ![]() ![]() |
#!/usr/local/bin/perl use strict; use warnings; use Tk; my @colors = qw(black white); my $top = new MainWindow; foreach my $i (1..8) { my $row = $top->Frame->pack(-side => 'top'); foreach my $j (1..8) { my $box = $row->Frame(-width => 10, -height => 10, -bg => $colors[($i + $j) % 2]); $box->pack(-side => 'left'); } } MainLoop; |
![]() | Es empfiehlt sich, innerhalb eines übergeordneten Widgets
(typischerweise Frames) nur eine Packungsrichtung zu
verwenden -- sonst wird es unübersichtlich.
|
![]() | Um kompliziertere Aufbauten zu erreichen, werden Frames
ineinander verschachtelt.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |