UNIX Desktop Questions & Answers

        Tue Mar 16 17:24:36 2010
        Tue Mar 16 17:24:37 2010
        Tue Mar 16 17:24:38 2010
        Tue Mar 16 17:24:39 2010
        Tue Mar 16 17:24:40 2010
Something is very broken, couldn't lazy load Gtk2::Dialog at c:/camelbox/site/li
b/Glib.pm line 211.
Can't locate package Glib::Object::_Unregistered::AtkImplementorIface for @Gtk2:
:Dialog::ISA at c:/camelbox/site/lib/Glib.pm line 211.
Can't locate package Glib::Object::_Unregistered::AtkImplementorIface for @Gtk2:
:Dialog::ISA at c:/camelbox/site/lib/Glib.pm line 211.
        (in cleanup) Something is very broken, couldn't lazy load Gtk2::Dialog a
t c:/camelbox/site/lib/Glib.pm line 211.
        Tue Mar 16 17:24:41 2010
        Tue Mar 16 17:24:42 2010
Terminating on signal SIGINT(2)

use strict;
use Gtk2 qw/-init/;
my $count = 0;
while (1) {
	my $time = localtime;
	print $time,"\n";
	$count++;
	if ($count == 5) {
		$count = 0;
		if (my $pid = fork) {
		} else {
			my $dialog = Gtk2::Dialog->new(
				"title", undef, 'modal',
				'ok'=>'ok');
			$dialog->show;
			$dialog->run;
			$dialog->destroy;
			exit;
		}
	}
	sleep 1;
}