Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv25374/src/gui

Modified Files: clim-gui.lisp Log Message: Patch by Christophe Rhodes on closure-devel 87ejk2sngi.fsf@cantab.net

--- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2007/06/30 14:00:04 1.32 +++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2007/07/01 12:16:43 1.33 @@ -4,7 +4,7 @@ ;;; Created: 2002-07-22 ;;; Author: Gilbert Baumann gilbert@base-engineering.com ;;; License: MIT style (see below) -;;; $Id: clim-gui.lisp,v 1.32 2007/06/30 14:00:04 dlichteblau Exp $ +;;; $Id: clim-gui.lisp,v 1.33 2007/07/01 12:16:43 dlichteblau Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann

@@ -28,6 +28,9 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

;; $Log: clim-gui.lisp,v $ +;; Revision 1.33 2007/07/01 12:16:43 dlichteblau +;; Patch by Christophe Rhodes on closure-devel 87ejk2sngi.fsf@cantab.net +;; ;; Revision 1.32 2007/06/30 14:00:04 dlichteblau ;; New argument new-process to run-closure, which can be disabled to run ;; closure in a "blocking" mode. Needed for clbuild, which wants to (quit) @@ -579,7 +582,7 @@ (send-closure-command 'com-quit))))

(defvar *closure-inited-p* nil) -(defmethod clim:read-frame-command :before ((frame closure) +(defmethod clim:run-frame-top-level :before ((frame closure) &key &allow-other-keys) (unless *closure-inited-p* (setf *closure-inited-p* t)))