[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-serv6914/cells-gtk

Modified Files:
	dialogs.lisp 
Log Message:
Without the gtk-object-forget, with frequent use of the file-chooser, you will get an error: 
Error: gtk-object-store id 136368864 already known as #<FILE-CHOOSER-DIALOG 239AA2A4>, 
not #<FILE-CHOOSER-DIALOG 206F656C>
There are probably other places where widgets are destroyed but the hash-table not cleaned up, but this is the only one so far where I have seen an error.
Date: Sun Feb 13 18:24:02 2005
Author: pdenno

Index: root/cells-gtk/dialogs.lisp
diff -u root/cells-gtk/dialogs.lisp:1.2 root/cells-gtk/dialogs.lisp:1.3
--- root/cells-gtk/dialogs.lisp:1.2	Sun Dec  5 07:33:22 2004
+++ root/cells-gtk/dialogs.lisp	Sun Feb 13 18:24:02 2005
@@ -132,7 +132,8 @@
       (if (select-multiple self)
 	  (setf (md-value self) (gtk-file-chooser-get-filenames-strs (id self)))
 	  (setf (md-value self) (gtk-file-chooser-get-filename (id self)))))
-    (gtk-widget-destroy (id self))))
+    (gtk-widget-destroy (id self))
+    (gtk-object-forget (id self) self)))
 
 (defun file-chooser (&rest inits)
   (let ((dialog (to-be (apply #'mk-file-chooser-dialog inits))))