use Gtk2 '-init';
my $region = Gtk2::Gdk::Region->new;
my $rect = $region->get_clipbox;
print "x=",$rect->x, " y=",$rect->y,
  " w=",$rect->width, " h=",$rect->height, "\n";
exit 0;