Geometrie-Manager pack V

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

pack4.pl
#!/usr/local/bin/perl -w

use Tk;
use strict;

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.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000