Return window ID of form (later should use attr list liek objects).
diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index 2251bbf..a651fda 100644
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1636,6 +1636,8 @@
 	formobject *f;
 	char *name;
 {
+	if (strcmp(name, "window") == 0)
+		return newintobject(f->ob_form->window);
 	/* XXX check for data attr's: x, y etc. */
 	return findmethod(form_methods, (object *)f, name);
 }