Geometrie-Manager pack II

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

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

use Tk;
use strict;

my $top = new MainWindow;
my $frame1 = $top->Frame(-width => 50, -height => 50,
   -bg => 'red');
my $frame2 = $top->Frame(-width => 100, -height => 100,
   -bg => 'green');
$frame1->pack(-side => 'top');
$frame2->pack(-side => 'top');
MainLoop;

[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