#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

$top = MainWindow->new();

                             # Beide Frames erzeugen
$upperframe = $top->Frame()->pack();
$lowerframe = $top->Frame()->pack();

                             # Labels im oberen Frame
$upperframe->Label(-text => "Label1")->pack();

                             # Labels im unteren Frame
$lowerframe->Label(-text => "Label2")->pack(-side => "left");
$lowerframe->Label(-text => "Label3")->pack(-side => "right");

MainLoop;