#!/usr/bin/perl

use strict;
use warnings;
#use diagnostics;

use Win32::GUI();

my $message;

# Erzeuge Fenster
my $main = Win32::GUI::Window->new(
                -name   => 'Main',      # interner Fenstername
                -width  => 100,
                -height => 1,
                -onTimer => scrollMessage, # Timer springt diese Funktion an!
);

$message = "Blah, Blub - LOL. Hihi. Perl ist supertoll! Windows auch ab und an.";

$main->AddTimer('scrolltimer', 100); # alle 100ms wird onTimer aufgerufen
$main->Caption($message);

$main->Show();

sub scrollMessage {
        my $c = substr($message,0,1); # erstzes Zeichen retten
        $message = substr($message,1); # Meldung ab 2. Zeichen
        $message .= $c;                         # Erstes Zeichen an Ende setzen
        
        $main->Caption($message);
}

sub Main_Terminate {
        -1;
}