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

use Tk;

$top = MainWindow->new();
                            # Photo-Objekt erzeugen und mit
$photo = $top->Photo();     # GIF-Image initialisieren
$photo->configure("-file" => "earthris.gif");

                            # Photo in Label einbinden 
                            # und anzeigen
$label = $top->Label(-image => $photo, -text => "hallo");
$label->pack();
                            # Zweites Label mit 
                            # "Breite x Höhe" Text erzeugen
$top->Label(-text => 
            $photo->width . "x" . $photo->height)->pack();

MainLoop;