#!/usr/bin/perl
use strict;
use warnings;
use Tk;

our $title = "title";
my $label = "label";

our $mw = MainWindow->new;
$mw->title($title);

# calculate max windows size
my ($max_window_width,$max_window_height)=$mw->maxsize();
        
our $window_size_x              = $max_window_width;
our $window_size_y              = 45;
our $window_position_x  = 0;
our $window_position_y  = 0;

my $text_position_x             = 0;
my $text_position_y             = 0;

# Mainwindow: sizex/y, positionx/y
$mw->geometry($window_size_x."x".$window_size_y."+".$window_position_x."+".$window_position_y);

#prevents mw from closing
$mw->protocol('WM_DELETE_WINDOW' => sub { Funct(); exit;} );

my $label_length = length($label);

my ($pre_label, $post_label, $new_label);

for (my $text_position_x = $max_window_width; $text_position_x >=0; $text_position_x = $text_position_x - 400) {
        
#       $pre_label      = " " x $text_position_x;
#       $post_label     = " " x ($max_window_width-$text_position_x-$label_length);
#       $new_label      = $pre_label.$label.$post_label;
        
        $new_label      = $label;
        banner($new_label, $text_position_x, $text_position_y);
        $mw->after(100);
        
}

#automatic close after time
$mw->after(3000, sub { $mw->destroy; });

MainLoop;

exit;

###################################################
###################################################
###################################################

sub banner {
        
        my $label                       = shift;
        my $text_position_x     = shift;
        my $text_position_y     = shift;
        
        $mw->Label(     -text => $label, -font => "Arial -40 bold") -> place (-x => $text_position_x, -y => $text_position_y);
}