#!/usr/bin/perl

use Tk;

@namen = ( "Allgemein", "Zeitung" );
@orte = ( "E:\\Eigene Dateien\\Programme\\Scrutator\\img\\minilupe.gif", "E:\\Eigene Dateien\\Programme\\Scrutator\\img\\zeitung.gif" );

my $top = MainWindow -> new(-background => 'black', -height => '768', -width => '1024');
$top -> title('Scrutator');

# Navigationsframe
my $navi = $top -> Frame (-background => 'black');
$navi -> place(-x=>'3p', -y => '3p');

# Erster Button - Lupe
my $lupe = $navi->Photo(-file => 'E:\\Eigene Dateien\\Programme\\Scrutator\\img\\lupe.gif');
$navi->Button(-image => $lupe, -relief=>'flat', -background => 'black', -activebackground => 'red')->grid(-row=>'0', -column=>'0');

# Zweiter Button - Ordner
my $ordner = $navi->Photo(-file => 'E:\\Eigene Dateien\\Programme\\Scrutator\\img\\ordner.gif');
$navi->Button(-image => $ordner, -relief=>'flat', -background => 'black', -activebackground => 'red')->grid(-row=>'1', -column=>'0');

# Profilframe
my $profilframe = $top -> Frame (-background => 'sky blue', -height => '249p', -width => '250p');
$profilframe -> place(-x=>'3p', -y => '140p');

# Profilframe
my $profilframe = $top -> Frame (-background => 'sky blue', -height => '249p', -width => '250p');
$profilframe -> place(-x=>'3p', -y => '140p');

# Profiltext

# Bilder definieren
my $allgemein = $profilframe->Photo(-file => $orte[0]);
my $zeitung = $profilframe->Photo(-file => $orte[1]);

# Überschrift
$profilframe->Label( -text=>"Meine Profile", -background => 'sky blue', -font=>'{Bimini} 14 {bold}' )->place(-x=>'5');

# Allgemein
$profilframe->Label( -image => $allgemein, -background => 'sky blue' )->place(-x=>'5', -y => '50');
$profilframe->Button( -text=>$namen[0], -background => 'sky blue', -font=>'{Bimini} 12 {bold}', -relief=>'flat', -activebackground => 'yellow' )->place(-x=>'28p', -y => '50');

# Zeitung
$profilframe->Label( -image => $zeitung, -background => 'sky blue' )->place(-x=>'5', -y => '85');
$profilframe->Button(-text=>$namen[1], -background => 'sky blue', -font=>'{Bimini} 12 {bold}', -relief=>'flat', -activebackground => 'yellow' )->place(-x=>'28p', -y => '85');

MainLoop;