Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv28441/cells-gtk

Modified Files: dialogs.lisp Log Message: After you gtk-destroy a dialog widget, forget it (remove if from the clos object / gtk object hash table). Date: Thu Feb 17 21:00:13 2005 Author: pdenno

Index: root/cells-gtk/dialogs.lisp diff -u root/cells-gtk/dialogs.lisp:1.3 root/cells-gtk/dialogs.lisp:1.4 --- root/cells-gtk/dialogs.lisp:1.3 Sun Feb 13 18:24:02 2005 +++ root/cells-gtk/dialogs.lisp Thu Feb 17 21:00:13 2005 @@ -52,7 +52,8 @@ (-7 :close) (-8 :yes) (-9 :no)))) - (gtk-widget-destroy (id self))) + (gtk-widget-destroy (id self)) + (gtk-object-forget (id self) self)) (defun show-message (text &rest inits) (let ((message-widget (to-be (apply #'mk-message-dialog :message text inits))))