in form_dealloc, only hide the form if it's visible

diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index f51586a38080384b00b55ae911c63ab9b938ddcf..2d26533f1f09a9927750ca6ef0074bc98f0ba108 100644 (file)
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1816,7 +1816,8 @@ form_dealloc(f)
        formobject *f;
 {
        releaseobjects(f->ob_form);
-       fl_hide_form(f->ob_form);
+       if (f->ob_form->visible)
+               fl_hide_form(f->ob_form);
        fl_free_form(f->ob_form);
        DEL(f);
 }