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