closure-cvs

Download

closure-cvs@common-lisp.net

June 2008

1 participants
2 discussions

[closure-cvs] CVS closure
by dlichteblau 02 Jun '08

02 Jun '08

Update of /project/closure/cvsroot/closure In directory clnet:/tmp/cvs-serv31875 Modified Files: closure.asd Log Message: removed dependency on clim-clx --- /project/closure/cvsroot/closure/closure.asd 2007/10/07 21:44:36 1.19 +++ /project/closure/cvsroot/closure/closure.asd 2008/06/02 21:40:20 1.20 @@ -86,7 +86,6 @@ (asdf:defsystem closure :depends-on (:mcclim - :clim-clx :glisp :bordeaux-threads :trivial-sockets

1 0

[closure-cvs] CVS closure/src/gui
by dlichteblau 02 Jun '08

02 Jun '08

Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv31294 Modified Files: clim-gui.lisp Log Message: removed dependency on clim-clx --- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2008/01/02 09:10:00 1.36 +++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2008/06/02 21:39:28 1.37 @@ -4,7 +4,7 @@ ;;; Created: 2002-07-22 ;;; Author: Gilbert Baumann <gilbert(a)base-engineering.com> ;;; License: MIT style (see below) -;;; $Id: clim-gui.lisp,v 1.36 2008/01/02 09:10:00 thenriksen Exp $ +;;; $Id: clim-gui.lisp,v 1.37 2008/06/02 21:39:28 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.37 2008/06/02 21:39:28 dlichteblau +;; removed dependency on clim-clx +;; ;; Revision 1.36 2008/01/02 09:10:00 thenriksen ;; If we get an URI with no protocol specified, add http:// to it and ;; reparse. This allows (closure:visit "planet.lisp.org"), though still @@ -610,14 +613,18 @@ (setf climi::*3d-normal-color* (make-gray-color .75)) (setf climi::*3d-light-color* (make-gray-color .92)) (setf climi::*3d-inner-color* (make-gray-color .65)) - (setf clim-clx::*clx-text-sizes* - '(:normal 12 - :tiny 8 - :very-small 10 - :small 10 - :large 14 - :very-large 18 - :huge 24)) + ;; If this is necessary, it should be done in a portable way, without + ;; hardcoding backend data. (Ideally, it should be a configuration option + ;; determined by the user.) I am commenting it out, because it is the + ;; last dependency on CLIM-CLX that is left. --dfl, June 2008 +;;; (setf clim-clx::*clx-text-sizes* +;;; '(:normal 12 +;;; :tiny 8 +;;; :very-small 10 +;;; :small 10 +;;; :large 14 +;;; :very-large 18 +;;; :huge 24)) (gui::init-closure) ;; (flet ((run-frame ()

1 0