#!/perl/bin/perl

use Win32::GUI;

$WinLogs = new Win32::GUI::Window(
	-name	=> "WinLogs",
	-text	=> "WinLogs",
	-top	=> 0,
	-left	=> 0,
	-height	=> 300,
	-width	=> 350,
);

$ListView = $WinLogs->AddListView
(
	-name	=> "ListView",
	-top	=> 10,
	-left	=> 40,
	-width	=> 250,
	-height	=> 250,
	-showselalways => 1,
);

$ListView->View(1);
$ListView->InsertColumn(-index => 0, -subitem => 0, -width => $ListView->ScaleWidth, -text => "Date/Time");

$BrainWave = $WinLogs->AddTimer("BrainWave", 1000);

$WinLogs->Show;

Win32::GUI::Dialog();

sub BrainWave_Timer
{
	$ListView->InsertItem(-item => 0, -subitem => 0, -text => $a = localtime);
	$ListView->EnsureVisible($ItemPtr, TRUE);

	$NbrItems = $ListView->Count();

	if ( $NbrItems > 5 )
	{
		$ListView->RemoveItem(4);
	}

	return 1;
}