#!/usr/bin/perl -w

use strict;
use Gtk2 '-init';

my $window = new Gtk2::Window;
my $socket = new Gtk2::Socket;

$window->add($socket);
$socket->add_id($window_id_of_program_to_embed);
$window->show_all;

Gtk2->main;

##</code><code>##

int main(void) {
	int i;
	unsigned int number_of_children;

	Display *display;
	Window window, root, *children, window_root, window_parent;
	XClassHint class_hint;
	XTextProperty wmname;

	if (!(display = XOpenDisplay(":0.0"))) return 1;
	if (!(root = DefaultRootWindow(display))) return 1;
	if (!(XQueryTree(display, root, &window_root, &window_parent, &children, &number_of_children))) return 1;
	if (!(number_of_children > 0)) return 1;

	for (i=0;i<number_of_children;i++) {
		if (!XGetWMName(display, *(children+i), &wmname)) continue;
		if (!XGetClassHint(display, *(children+i), &class_hint)) continue;

		if (
			(strcmp("Volume", (char *) wmname.value) == 0) &&
			(strcmp("gnome-settings-daemon", class_hint.res_name) == 0) &&
			(strcmp("Gnome-settings-daemon", class_hint.res_class) == 0)
		) {
			window = *(children+i);
			break;
		}
	}
	if (number_of_children > 0) XFree(children);
	if (i == number_of_children) return 1;

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