### hier der Aufruf: ###
&zentriere_fenster($mw); # Parameter 1: Übergibt die Fenstervariable; Parameter 2: Verschiebung der X-Achse; Parameter 3: Verschiebung der Y-Achse

### hier ein Beispiel-Aufruf mit Parameter-Werten: ### 
&zentriere_fenster($mw,0,-20); 

#### hier die SUB: ####
#### Diese Subroutine Berechnet die zentrierte Darstellung auf dem Bildschirm ####

sub zentriere_fenster {
    my $widget = shift; # Fenster als Übergabeparameter
    my $x_ver  = shift; # Verschiebung auf der X-Achse vom Zentrum (bei positiven Wert Verschiebung nach rechts. Negativ für links) 
    my $y_ver  = shift; # Verschiebung auf der X-Achse vom Zentrum (bei positiven Wert Verschiebung nach unten. Negativ für oben) 

    #### Platzierung des Infofensters auf dem Bildschirm ermitteln und mittig anordnen ####
    $widget->update; # Werte werden geupdatet, damit die tatsächliche Breite und Höhe ermittelt werden kann

    my $tats_breite = $widget->width(); # Tatsächliche Breite wird ermittelt
    my $tats_hoehe = $widget->height(); # Tatsächliche Höhe wird ermittelt

    my @aktuelle_b_aufloesung = ($breite=$mw->screenwidth, $hoehe=$mw->screenheight); # aktuelle Bildschirmauflösung wird in array geschrieben

    my @widget_platzierung = (($aktuelle_b_aufloesung[0]/2)-($tats_breite/2)+$x_ver, ($aktuelle_b_aufloesung[1]/2)-($tats_hoehe/2)+$y_ver); # Berechnung für die Mittlere Platzierung auf den Bildschirm

    for (@widget_platzierung)  # Runden, denn sonst kann es zu Fehlern bei der Methode geometry kommen, denn es können nur ganzzahlige Zahlen benutzt werden
    {
         $_= sprintf("%.0f",$_); 
    }

    $widget->geometry("+$widget_platzierung[0]+$widget_platzierung[1]"); # Nun wird die Position des Fensters aus den errechneten Werten festgelegt
}

####### hier die SUB nochmal ohne Inline DOKU ########
sub zentriere_fenster {
    my $widget = shift;
    my $x_ver  = shift; 
    my $y_ver  = shift; 

    $widget->update;

    my $tats_breite = $widget->width();
    my $tats_hoehe = $widget->height();

    my @aktuelle_b_aufloesung = ($breite=$mw->screenwidth, $hoehe=$mw->screenheight);

    my @widget_platzierung = (($aktuelle_b_aufloesung[0]/2)-($tats_breite/2)+$x_ver, ($aktuelle_b_aufloesung[1]/2)-($tats_hoehe/2)+$y_ver);

    for (@widget_platzierung)
    {
         $_= sprintf("%.0f",$_); 
    }

    $widget->geometry("+$widget_platzierung[0]+$widget_platzierung[1]");
}