[closure-cvs] CVS closure/src/gui

[dlichteblau]

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