#!/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;
}