[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv15466/Backends/CLX

Modified Files:
	port.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/Backends/CLX/port.lisp	2008/01/21 01:07:49	1.133
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/05/13 03:04:39	1.134
@@ -743,8 +743,8 @@
 			:timestamp time))
         ;;
 	(:configure-notify
-         ;; Resizes are consolidated later..   --Hefner
          (cond ((and (eq (sheet-parent sheet) (graft sheet))
+                     (graft sheet)
                      (not override-redirect-p)
                      (not send-event-p))
                 ;; this is genuine event for a top-level sheet (with