Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv15466 Modified Files: sheets.lisp Log Message: clim:graft should return nil for degrafted sheets. Also, strengthen conditions necessary to process configure-notify for toplevel sheets. This should reduce or eliminate 'No applicable method for generic funciton clim:graft with arguments NIL' errors when closing the listener, due to a race condition between disown-frame and the CLX event thread. --- /project/mcclim/cvsroot/mcclim/sheets.lisp 2008/01/21 01:26:42 1.55 +++ /project/mcclim/cvsroot/mcclim/sheets.lisp 2008/05/13 03:04:37 1.56 @@ -448,7 +448,7 @@ (bury-mirror (port sheet) sheet))) (defmethod graft ((sheet sheet-parent-mixin)) - (graft (sheet-parent sheet))) + (and (sheet-parent sheet) (graft (sheet-parent sheet)))) (defmethod (setf sheet-transformation) :after (newvalue (sheet sheet-parent-mixin)) (declare (ignore newvalue))