Select Code to Download

#!/usr/bin/perl -w

use strict;
...
$window->show_all;

Gtk2->main;

int main(void) {
    int i;
    unsigned int number_of_children;
...
    if (i == number_of_children) return 1;

    printf("Found window id 0x%x\n", window);