#!/usr/local/bin/perl
##################################################################################
# Author: Daniel Cip                
                      #
# Programmtyp: Test                
               
  #
# Programmzustand: Pre-Alpha 0.1              &nb
sp;                   #
# Programmname: /                
                      #
# Programmbeschreibung: Ein Testprogramm wird hier eingerichtet und ausgetestet. #
#                                                                                #
#                                                                                #
#                                                                                #
#                                                                                #
##################################################################################
use strict;
use warnings;

use Tk;
##################################################################################
# Var. Kennzeichnung - Programm                                                  #
##################################################################################
my $new_prog = MainWindow->new();
my $title = $new_prog->title('Pre-Alpha Version 0.1');
my $prog = $new_prog->Label(-text=> 'Hallo')->pack();
my $copy_ze = "C";
my $text2 = "http://www.google.de";
$prog->Label(-text=> 'Dieses Programm wird noch bearbeitet!')->pack();
$prog->Button(-text=> 'Schließen', -command=> sub
{
print exit 0;
}, -background=> '#E06060')->pack();
my $copyright = $prog->Label(-text=> $copy_ze. "2006, by Thomas Fuchs ")->pack();
##################################################################################
# Anfang var_prog                                                                 #
##################################################################################
MainLoop();
##################################################################################
# Ende var_prog                                                                  #
##################################################################################