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