[cells-gtk-cvs] CVS update: root/cells-gtk/dialogs.lisp

[Peter Denno]

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))))