#!/usr/bin/perl -w
use strict;
use warnings;

use Tk;
use modul;

my @namen = ( "Allgemein", "Bücher", "Einkaufen", "Wikipedia", "Zeitung" );
my @orte = ( 'E:\Eigene Dateien\Programme\Scrutator\img\icons\minilupe.gif', 'E:\Eigene Dateien\Programme\Scrutator\img\icons\buch.gif', 'E:\Eigene Dateien\Programme\Scrutator\img\icons\einkaufswagen.gif', 'E:\Eigene Dateien\Programme\Scrutator\img\icons\wikipedia2.gif', 'E:\Eigene Dateien\Programme\Scrutator\img\icons\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');


# Profiltext

# Bilder definieren
my $allgemein = $profilframe->Photo(-file => $orte[0]);
my $buecher = $profilframe->Photo(-file => $orte[1]);
my $einkaufen = $profilframe->Photo(-file => $orte[2]);
my $wiki = $profilframe->Photo(-file => $orte[3]);
my $zeitung = $profilframe->Photo(-file => $orte[4]);

# Ü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 => '53');
$profilframe->Button( -text=>$namen[0], -background => 'sky blue', -font=>'{Bimini} 12 {bold}', -relief=>'flat', -activebackground => 'yellow' )->place(-x=>'28p', -y => '50');

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

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

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

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

MainLoop;