Return window ID of form (later should use attr list liek objects).

diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index 2251bbfc43810b49da2abd4aca00c667ed4727ff..a651fdadd271e7e3f93d7789e914b0abc3adf773 100644 (file)
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1636,6 +1636,8 @@ form_getattr(f, name)
        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);
 }