Help for this page
Gtk2->main_iteration while Gtk2->events_pending;
#!/usr/bin/perl -w use strict; ... MainLoop; __END__
use Gtk2 qw/-init -threads-init/; ... Gtk2::Gdk::Threads->leave; }