[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv32572

Modified Files:
	frames.lisp 
Log Message:
After disabling a frame, call port-force-output.


--- /project/mcclim/cvsroot/mcclim/frames.lisp	2007/03/04 22:30:19	1.127
+++ /project/mcclim/cvsroot/mcclim/frames.lisp	2008/01/01 00:27:34	1.128
@@ -364,7 +364,7 @@
 (defmethod frame-exit ((frame standard-application-frame))
   (if (eq *application-frame* frame)
       (signal 'frame-exit :frame frame)
-    (disown-frame (frame-manager frame) frame)))
+      (disown-frame (frame-manager frame) frame)))
 
 (defmethod frame-exit-frame ((c frame-exit))
   (%frame-exit-frame c))
@@ -447,11 +447,11 @@
 			       (call-next-method)))
 		 (frame-layout-changed () nil)))
       (let ((fm (frame-manager frame)))
-	(case original-state
-	  (:disabled
-	   (disable-frame frame))
-	  (:disowned
-	   (disown-frame fm frame)))))))
+        (case original-state
+          (:disabled
+           (disable-frame frame))
+          (:disowned
+           (disown-frame fm frame)))))))
 
 (defparameter +default-prompt-style+ (make-text-style :fix :italic :normal))
 
@@ -643,7 +643,10 @@
   (note-frame-enabled (frame-manager frame) frame))
 
 (defmethod disable-frame ((frame application-frame))
-  (setf (sheet-enabled-p (frame-top-level-sheet frame)) nil)
+  (let ((t-l-s (frame-top-level-sheet frame)))
+    (setf (sheet-enabled-p t-l-s) nil)
+    (when (port t-l-s)
+      (port-force-output (port t-l-s))))
   (setf (slot-value frame 'state) :disabled)
   (note-frame-disabled (frame-manager frame) frame))