Update of /project/closure/cvsroot/closure/src/gui In directory common-lisp.net:/tmp/cvs-serv16862/src/gui
Modified Files: clim-gui.lisp Log Message: make it at least compile and show a window with CMUCL 19a and cvs mcclim. Date: Sun Mar 13 20:24:14 2005 Author: gbaumann
Index: closure/src/gui/clim-gui.lisp diff -u closure/src/gui/clim-gui.lisp:1.12 closure/src/gui/clim-gui.lisp:1.13 --- closure/src/gui/clim-gui.lisp:1.12 Sun Mar 13 19:01:37 2005 +++ closure/src/gui/clim-gui.lisp Sun Mar 13 20:24:14 2005 @@ -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.12 2005/03/13 18:01:37 gbaumann Exp $ +;;; $Id: clim-gui.lisp,v 1.13 2005/03/13 19:24:14 gbaumann 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.13 2005/03/13 19:24:14 gbaumann +;; make it at least compile and show a window with CMUCL 19a and cvs mcclim. +;; ;; Revision 1.12 2005/03/13 18:01:37 gbaumann ;; Gross license change ;; @@ -163,7 +166,7 @@ wholine 2 (200 status))))) - (:top-level (closure-frame-top-level . nil)) + ;; (:top-level (closure-frame-top-level . nil)) )
@@ -262,7 +265,7 @@ (define-closure-command com-hide-listener () (setf (sheet-enabled-p (sheet-parent (find-pane-named *application-frame* 'interactor))) nil))
-(define-closure-command com-visit-url ((url 'url)) ;;; :gesture :select)) +(define-closure-command (com-visit-url :name t) ((url 'url)) ;;; :gesture :select)) (let ((*standard-output* *query-io*)) ;;(find-pane-named *frame* 'interactor))) (with-text-style (*standard-output* (make-text-style :sans-serif :roman :normal)) (format t "You are visiting ")) @@ -450,18 +453,15 @@ :very-large 18 :huge 24)) (gui::init-closure) - #+NIL - (loop for port in climi::*all-ports* - do (destroy-port port)) - (setq climi::*all-ports* nil) ;; - (setf *frame* (make-application-frame 'closure)) - (setf *pane* (find-pane-named *frame* 'canvas)) (setf *closure-process* (clim-sys:make-process (lambda () (unwind-protect - (run-frame-top-level *frame*) + (progn + (setf *frame* (make-application-frame 'closure)) + (setf *pane* (find-pane-named *frame* 'canvas)) + (run-frame-top-level *frame*)) (ignore-errors (ws/netlib::commit-cache)) (setf *closure-process* nil))) :name "Closure")))