Gtk2->main_iteration while Gtk2->events_pending;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Gtk2;
use Tk;

my $mw = MainWindow->new(-title=>'Tk Window');

Gtk2->init;

my $window = Gtk2::Window->new('toplevel');
$window->set_title('Gtk2 Window');
my $glabel = Gtk2::Label->new("This is a  Gtk2 Label");
$window->add($glabel);
$window->show_all;

my $tktimer = $mw->repeat(10, sub{
   Gtk2->main_iteration while Gtk2->events_pending;
  });


$mw->Button(-text=>'     Quit     ',
       -command => sub{exit}
        )->pack();

MainLoop;
__END__

##</code><code>##

use Gtk2 qw/-init -threads-init/;

die "Glib::Object thread safetly failed"
        unless Glib::Object->set_threadsafe (TRUE);

.....
.....

sub thread_work{
     
      Gtk2::Gdk::Threads->enter;
        .........  
        .........
      Gtk2::Gdk::Threads->leave;
        
}