#!/usr/bin/perl

#######################################
# デスクトップアクセサリ
#  「プリティナイスガイ」
# (C) 2003 makamaka [at] donzoko.net
# すきに改造してかいません。
#######################################

use warnings;
use strict;
use Tk;
use Tk::Dialog;
use Tk::DialogBox;
use Data;
use encoding "cp932"; 
main();
sub main{
	my $title   = 'American';
	my $data    = Data->new(start=>'0');
	my $win     = MainWindow->new(-title => $title);

	my $button1 = $win->Button(
		-text    => "Exit", -command => sub { exit },
	);

#	$win->optionAdd('*font' => 'FixedSys 12');
	$button1->pack;
	$win->iconify;

	$data->go();

	$win->after(500, \&show_dialog, $win, $data );

	MainLoop();
}

sub show_dialog{
	my $win  = shift;
	my $data = $_[0];

	my $ret = $win->messageBox(
		-type    => $data->{type},
		-icon    => $data->{icon},
		-message => $data->{mes},
		-title   => $data->{title},
	);

	$data->go($ret);

	$win->after($data->{wait},\&show_dialog,$win,$data);
}