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;
        
}