#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new( -title => "Mesopotamia" );

my $map = $mw->Photo
	( -file => 'map.bmp', -height => 220, width => 300 );

my $map_label = $mw->Label
	( -image => $map, -relief => "groove", -borderwidth => 2 )
		->grid( -row => 0, -column => 0, -pady => 20, -padx => 20  );

my $scale = $mw->Scale
	( -from => -5000, -to => 2010, -orient => "horiz", 
		-length => 300, -resolution => 10 )
			->grid( -row => 1, -column => 0 );

my $frame = $mw->Frame
	( -relief => "groove", -borderwidth => 2 )
		->grid( -row => 2, -column => 0, -pady => 20 );

my $label = $frame->Label
	( -wraplength => 200, -width => 50, -height => 5 )
		->pack();

my %data;
my @ordered;
while ( <DATA> )
{
	my ( $date, $description ) = / (\S*) \s*:\s* (.*) /x;
	unshift @ordered, $date;
	my $abs_date = abs $date;
	$description = $abs_date . 
		( $date < 0 ? " BC $description" : " AD $description" );
	$data{ $date } = $description;
}
$mw->bind( "<Alt-F4>" => sub { Tk::exit } );

$mw->repeat( 250 => \&update );

MainLoop();

sub update
{
	my $date = $scale->get();
	my $chosen;
	for ( @ordered )
	{
		$chosen = $_;
		last if $_ <= $date;
	}
	$label->configure( -text => $data{$chosen} );
}

__DATA__
-5000 : The Sumerians found Uruk, Ur, and other city states in southern Mesopotamia.
-2330 : The Akkadians, under Sargon I, found the Akkadian Empire.
-2218 : The Gutians, under the 3rd dynasty of Ur are final flowering of Sumeria.
-2000 : The Elamites destroy the city of Ur.
-1800 : The Babylonians, under Hammurabi, found the city of Babylon, as the Amorites gain control of Assur.
-1595 : The Hittites raid Babylon from their power base in Anatolia, crippling the empire.
-1580 : The Kassites rule Babylon.
-1580 : The Mittanites rule Assur, having been set up by Hurrians from the Caucasus.
-1350 : The Assyrians defeat the Mittanites in Assur, and begin empire-building, with a capital at Nineveh.
-1225 : The Assyrians conquer Babylon briefly, and soon after Aramaean tribes from Syria and Chaldean tribes overrun Babylonia.
-910  : Assyria expands again.
-612  : An alliance of Medes and Chaldeans cause Assyria to collapse.
-612  : Medes take the hill country, leaving Mesopotamia to the Chaldeans (Neo-Babylonians) under Nebuchadnezzar II.
-539  : Chaldeans and Medes defeated by Cyrus the Great of Persia, who captures Babylon.
-539  : Mesopotamia divided into the now Aramaic-speaking satrapies of Babylon and Assur.
-311  : Alexander the Great conquers Asia Minor.
-323  : Macedonian empire disintegrates on Alexander's death.
-312  : Seleucus I enters Babylon, and Mesopotamia is incorporated into the Seleucid empire.
-250  : The Arsacid rulers of Parthia take Mesopotamia.
226   : Sassanids from Persia extend their empire from the Euphrates to modern Afghanistan.
230   : Conflict with the Roman province of Syria, later to become part of the Byzantine empire (after 395).
635   : Arabs under the Umayyad caliphate in Damascus take Mesopotamia.
750   : Construction of Baghdad as the new capital of a Muslim empire under the Abbasid caliphs with imported Turkish slaves.
1258  : Mongols sack Baghdad.
1410  : Mesopotamia attacked by Bedouins and Mongols.
1500  : Ottoman Turks and Safavid Persian rulers vie for control of Mesopotamia.
1910  : British troops take the area, Iraq mandated to Great Britain and Syria to France.
1932  : Iraq independent.
2003  : Iraq invaded by United States of America.