[mcclim-cvs] CVS mcclim

[ahefner]

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