Update information 

sub set_title {
  my $xid    = shift;
  my $title  = shift;
  my $gtk_window = Gtk2::Gdk::Window->foreign_new($xid);
  $gtk_window->set_title($title);
}