closure-cvs December 2006

closure-cvs@common-lisp.net

2 participants
53 discussions

[closure-cvs] CVS closure/src
by emarsden 30 Dec '06

30 Dec '06

Update of /project/closure/cvsroot/closure/src In directory clnet:/tmp/cvs-serv12910/src Modified Files: defpack.lisp Log Message: - use CL from Closure packages - minor rod fixes - move PARSE-X11-COLOR from clim-user to ws/x11 package --- /project/closure/cvsroot/closure/src/defpack.lisp 2006/12/29 21:29:23 1.6 +++ /project/closure/cvsroot/closure/src/defpack.lisp 2006/12/30 15:13:54 1.7 @@ -28,7 +28,7 @@ (defpackage :renderer (:nicknames :r2) - (:use :glisp :runes) + (:use :glisp :runes :cl) (:import-from :imagelib #:aimage #:aimage-width @@ -94,18 +94,18 @@ )) (defpackage :ws/x11 - (:use :glisp :runes) + (:use :glisp :runes :cl) (:export #:aimage->ximage)) (defpackage :gif - (:use :glisp :runes) + (:use :glisp :runes :cl) (:export #:gif-stream->aimage)) (defpackage :ws/charset ;;(:nicknames :charset) ;; Arg! CLISP now defines a package called "charset". - (:use :glisp :runes) + (:use :glisp :runes :cl) (:export #:CHARSET #:CHARSET-DECODE #:CHARSET-ENCODE @@ -118,7 +118,7 @@ ;;zzz(defpackage :ws/estk (:use :glisp)) ;should die (defpackage :gui - (:use :glisp :runes) + (:use :glisp :runes :cl) (:import-from #:clim #:+nowhere+ @@ -208,9 +208,9 @@ #:start #:stop)) -'(defpackage "WS/POSTSCRIPT" - (:nicknames "WS/PS") - (:use "GLISP") +'(defpackage :ws/postscript + (:nicknames :ws/ps) + (:use :glisp :cl) (:export ) (:import-from "R2" "DEVICE-FONT-ASCENT" @@ -234,4 +234,4 @@ "DEVICE-FONT-UNDERLINE-THICKNESS" )) -(defpackage :clue-gui2 (:use #||:glue :clue||# :glisp :runes)) +(defpackage :clue-gui2 (:use #||:glue :clue||# :glisp :runes :cl))

1 0

[closure-cvs] CVS closure/src/gui
by emarsden 30 Dec '06

30 Dec '06

Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv12732/src/gui Modified Files: gui.lisp Log Message: Cleanup debugging code. --- /project/closure/cvsroot/closure/src/gui/gui.lisp 2005/07/17 09:30:52 1.7 +++ /project/closure/cvsroot/closure/src/gui/gui.lisp 2006/12/30 15:08:09 1.8 @@ -394,9 +394,6 @@ ;;;; profiling ;;;; -(defparameter cl-user::*profile-closure-p* nil) -(defparameter cl-user::*closure-dpi* 88) ;this doesn't belong here - (defclass prim-ht-view () ((display-list :initform nil) (active-pt :initform nil)

1 0

[closure-cvs] CVS closure/src/gui
by emarsden 30 Dec '06

30 Dec '06

Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv12658/src/gui Modified Files: clim-gui.lisp Log Message: Minor improvements to user interface: - enable double buffering - wait until page has been downloaded before erasing previous page - enable busy cursor while downloading and rendering --- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2006/12/29 17:37:07 1.23 +++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2006/12/30 15:07:31 1.24 @@ -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.23 2006/12/29 17:37:07 dlichteblau Exp $ +;;; $Id: clim-gui.lisp,v 1.24 2006/12/30 15:07:31 emarsden Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann @@ -28,6 +28,12 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ;; $Log: clim-gui.lisp,v $ +;; Revision 1.24 2006/12/30 15:07:31 emarsden +;; Minor improvements to user interface: +;; - enable double buffering +;; - wait until page has been downloaded before erasing previous page +;; - enable busy cursor while downloading and rendering +;; ;; Revision 1.23 2006/12/29 17:37:07 dlichteblau ;; Make closure start on Gtkairo: ;; @@ -162,6 +168,8 @@ :min-height 100 :max-width 300 :max-height 20000 + :incremental-redisplay t + :double-buffering t :display-function 'aux-display :display-time :command-loop) (status :pointer-documentation @@ -192,7 +200,7 @@ (default (vertically () (spacing (:thickness 5) - (scrolling (:width 830 :height 600 :min-height 600 :max-height 20000 + (scrolling (:width 830 :height 600 :min-height 400 :max-height 20000 :scroll-bar :vertical) canvas)) (spacing (:thickness 5) @@ -531,9 +539,9 @@ (let* ((*package* (find-package :r2)) (*pane* (find-pane-named *frame* 'canvas)) (*medium* (sheet-medium *pane*))) - (window-clear *pane*) (progn ;; with-sheet-medium (*medium* *pane*) (let ((device (make-instance 'closure/clim-device::clim-device :medium *pane*))) + (setf (sheet-pointer-cursor *pane*) :busy) (setq url (r2::parse-url* url)) (let ((request (clue-gui2::make-request :url url :method :get))) (multiple-value-bind (io header) (clue-gui2::open-document-4 request) @@ -554,6 +562,7 @@ (make-instance 'r2::xml-style-document-language))) (closure-protocol:*user-agent* nil) (r2::*canvas-width* (bounding-rectangle-width (sheet-parent *pane*)))) + (window-clear *pane*) (closure-protocol:render closure-protocol:*document-language* doc @@ -569,7 +578,8 @@ ;; While we are at it, force a repaint (handle-repaint *pane* (sheet-region (pane-viewport *pane*))) (clim-backend:port-force-output (find-port))))))) - #+nil (write-status "Done."))))) + (setf (sheet-pointer-cursor *pane*) :default) + (write-status "Done."))))) #+nil (clim-backend:port-force-output (find-port)))))) (defun reflow ()

1 0

[closure-cvs] CVS closure/src/glisp
by emarsden 30 Dec '06

30 Dec '06

Update of /project/closure/cvsroot/closure/src/glisp In directory clnet:/tmp/cvs-serv10739/src/glisp Modified Files: dep-sbcl.lisp Log Message: Use character instead of base-char for GLISP strings (base-char is only 7 bits wide in Unicode-enabled SBCL builds). --- /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2005/03/13 18:01:15 1.2 +++ /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2006/12/30 15:00:28 1.3 @@ -91,7 +91,7 @@ ;;;;;; (defun glisp::g/make-string (length &rest options) - (apply #'make-array length :element-type 'base-char options)) + (apply #'make-array length :element-type 'character options))

1 0

[closure-cvs] CVS closure
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure In directory clnet:/tmp/cvs-serv15548 Modified Files: INSTALL Log Message: also mention the instructions on common-lisp.net --- /project/closure/cvsroot/closure/INSTALL 2006/12/29 22:06:44 1.3 +++ /project/closure/cvsroot/closure/INSTALL 2006/12/29 22:09:37 1.4 @@ -1,5 +1,8 @@ Preliminary Installation Instructions +(See also: http://common-lisp.net/project/closure/quickstart.html) + + Provide yourself with: 1. CMUCL, SBCL, or another supported implementation

1 0

[closure-cvs] CVS closure
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure In directory clnet:/tmp/cvs-serv15346 Modified Files: INSTALL Removed Files: BUILD closure.system Log Message: Remove outdated system file and BUILD-script. Update INSTALL accordingly. --- /project/closure/cvsroot/closure/INSTALL 2005/03/13 16:57:06 1.2 +++ /project/closure/cvsroot/closure/INSTALL 2006/12/29 22:06:44 1.3 @@ -2,7 +2,7 @@ Provide yourself with: - 1. CMUCL + 1. CMUCL, SBCL, or another supported implementation [For what it is worth, I use 18d-pre] @@ -14,13 +14,16 @@ [Debian package gif2png] + 4. McCLIM, Closure XML, and their dependencies -There is a script named BUILD. After executing it, if you are lucky -this will leave you with a lisp.core which contains closure. + [ http://common-lisp.net/project/mcclim/ + http://common-lisp.net/project/cxml/ ] -Fire up the the newly build core: -$ lisp -core lisp.core +Compile closure using ASDF: Register closure.asd in your central +registry and run: + +* (asdf:operate 'asdf:load-op :closure) Then start Closure:

1 0

[closure-cvs] CVS closure/src/xml/sax-tests
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src/xml/sax-tests In directory clnet:/tmp/cvs-serv12843/src/xml/sax-tests Removed Files: event-collecting-handler.lisp package.lisp tests.lisp Log Message: remove old files

1 0

[closure-cvs] CVS closure/src/glisp
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src/glisp In directory clnet:/tmp/cvs-serv12843/src/glisp Removed Files: runes.lisp Log Message: remove old files

1 0

[closure-cvs] CVS closure/src/xml
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src/xml In directory clnet:/tmp/cvs-serv12843/src/xml Removed Files: dom-builder.lisp dom-impl.lisp dompack.lisp encodings-data.lisp encodings.lisp package.lisp sax-handler.lisp xml-canonic.lisp xml-name-rune-p.lisp xml-parse.lisp xml-stream.lisp Log Message: remove old files

1 0

[closure-cvs] CVS closure/src/util
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src/util In directory clnet:/tmp/cvs-serv9505/src/util Modified Files: clex.lisp lalr.lisp xterm.lisp Log Message: Use CXML's rune implementation and XML parser. --- /project/closure/cvsroot/closure/src/util/clex.lisp 2005/03/13 18:03:57 1.3 +++ /project/closure/cvsroot/closure/src/util/clex.lisp 2006/12/29 21:29:44 1.4 @@ -27,7 +27,7 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. (defpackage :clex - (:use :glisp) + (:use :glisp :runes) (:export #:deflexer #:backup #:begin #:initial #:bag)) --- /project/closure/cvsroot/closure/src/util/lalr.lisp 2002/07/22 02:27:19 1.1.1.1 +++ /project/closure/cvsroot/closure/src/util/lalr.lisp 2006/12/29 21:29:44 1.2 @@ -7,7 +7,7 @@ ;;; (c) 1988 Mark Johnson (defpackage :lalr - (:use :glisp) + (:use :glisp :runes) (:export #:DEFINE-GRAMMAR)) (in-package :LALR) --- /project/closure/cvsroot/closure/src/util/xterm.lisp 2005/03/13 18:03:58 1.2 +++ /project/closure/cvsroot/closure/src/util/xterm.lisp 2006/12/29 21:29:44 1.3 @@ -28,7 +28,7 @@ (defpackage :XTERM - (:use :glisp) + (:use :glisp :runes) (:export #:open-terminal ))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

closure-cvs December 2006