November 2006 - mcclim-cvs@common-lisp.net

[mcclim-cvs] CVS mcclim
by dlichteblau 05 Nov '06

05 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv6996 Modified Files: sheets.lisp Log Message: Magic number elimination #2: In sheet-mirror-region, do what the comment already claimed it does: Ask the backend for mirror sizes if the frontend does not have a cached value. Previously, width and height were returned as 65536, a completely bogus value. This was presumably because the CLX backend started out with the too-small 100x100 size. --- /project/mcclim/cvsroot/mcclim/sheets.lisp 2006/05/05 10:24:02 1.51 +++ /project/mcclim/cvsroot/mcclim/sheets.lisp 2006/11/05 15:40:15 1.52 @@ -671,17 +671,16 @@ ;; the server, since it is not under our control. ((or (null (sheet-parent sheet)) (null (sheet-parent (sheet-parent sheet)))) - (make-rectangle* 0 0 #x10000 #x10000) - #+nil (make-rectangle* 0 0 (port-mirror-width (port sheet) sheet) (port-mirror-height (port sheet) sheet))) (t ;; For other sheets just use the calculated value, saves a round trip. (or (%sheet-mirror-region sheet) - ;; XXX what to do if the sheet has no idea about its region? - ;; XXX can we consider calling sheet-mirror-region then an error? - (make-rectangle* 0 0 #x10000 #x10000) )))) + ;; ... unless we don't have it yet. + (make-rectangle* 0 0 + (port-mirror-width (port sheet) sheet) + (port-mirror-height (port sheet) sheet)) )))) (defmethod sheet-native-transformation ((sheet mirrored-sheet-mixin)) ;; XXX hm...

1 0

[mcclim-cvs] CVS mcclim/Backends/CLX
by dlichteblau 05 Nov '06

05 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv5740 Modified Files: port.lisp Log Message: Magic number elimination #1: Remove the 100px default for mirror width and height. Old algorithm was: * Use cached sheet-mirror-region if present. * Else use keyword argument if given. * Else use default argument value 100. (The third code path was actually being used.) New algorithm: * Use keyword argument if given. * Else use cached sheet-mirror-region. --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/10/29 08:29:46 1.123 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/11/05 15:35:26 1.124 @@ -337,7 +337,7 @@ mirror-region))) (defun realize-mirror-aux (port sheet - &key (width 100) (height 100) (x 0) (y 0) + &key width height (x 0) (y 0) (border-width 0) (border 0) (override-redirect :off) (map t) @@ -367,12 +367,10 @@ (pixel (xlib:alloc-color (xlib:screen-default-colormap (clx-port-screen port)) color)) (window (xlib:create-window :parent (sheet-mirror (sheet-parent sheet)) - :width (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet))) - width) - :height (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet))) - height) + :width (or width + (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet)))) + :height (or height + (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet)))) :x (if (%sheet-mirror-transformation sheet) (round-coordinate (nth-value 0 (transform-position (%sheet-mirror-transformation sheet)

1 0

[mcclim-cvs] CVS mcclim/Experimental/freetype
by afuchs 05 Nov '06

05 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory clnet:/tmp/cvs-serv27539 Modified Files: freetype-package.lisp Log Message: Use cl:defpackage for the freetype package, no matter what. Maybe other package defns have the same problem. Will have to look into that. --- /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-package.lisp 2006/10/28 17:11:31 1.3 +++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-package.lisp 2006/11/05 00:30:28 1.4 @@ -1,4 +1,4 @@ -(defpackage :mcclim-freetype +(cl:defpackage :mcclim-freetype (:use :climi :clim :clim-lisp) (:export :*freetype-font-path*) (:import-from #+(or cmu scl) :alien

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4580 Modified Files: NEWS Log Message: News file entry for the system.lisp file. --- /project/mcclim/cvsroot/mcclim/NEWS 2006/11/02 17:28:42 1.1 +++ /project/mcclim/cvsroot/mcclim/NEWS 2006/11/02 19:45:26 1.2 @@ -1,3 +1,6 @@ +* Changes in mcclim-0.9.4 relative to 0.9.3: +** cleanup: removed the obsolete system.lisp file. + * Changes in mcclim-0.9.3 "All Souls' Day" relative to 0.9.2: ** backend improvement: The Null backend now registers itself in the server search path

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4077 Removed Files: system.lisp Log Message: Remove the obsolete system.lisp file.

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4022 Modified Files: mcclim.asd Log Message: (argh. save buffers) --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/11/02 19:41:11 1.29 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/11/02 19:41:41 1.30 @@ -319,7 +319,7 @@ ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim - :version "0.9.4" + :version "0.9.3-dev" :depends-on (:clim-looks)) ;;; CLIM-Examples depends on having at least one backend loaded.

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv3962 Modified Files: mcclim.asd Log Message: Increment asd file version to .3-dev --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/11/02 17:48:50 1.28 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/11/02 19:41:11 1.29 @@ -319,7 +319,7 @@ ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim - :version "0.9.3" + :version "0.9.4" :depends-on (:clim-looks)) ;;; CLIM-Examples depends on having at least one backend loaded.

1 0

[mcclim-cvs] CVS mcclim/ReleaseNotes
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim/ReleaseNotes In directory clnet:/tmp/cvs-serv25817/ReleaseNotes Modified Files: 0-9-3-all-souls'-day Log Message: This is so wrong. Another 0.9.2 occurrence.

1 0

[mcclim-cvs] CVS mcclim/Webpage
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv25712/Webpage Modified Files: index.html Log Message: Haha. Souls', not Saints'. --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/11/02 18:08:26 1.16 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/11/02 18:37:04 1.17 @@ -54,13 +54,17 @@ </ul> <h2><a name="downloads">Releases</a></h2> <p> - The most recent release of McCLIM is 0.9.3, in November 2006, available here: <a href="downloads/mcclim-0.9.3.tar.gz">mcclim-0.9.3.tar.gz</a>. It is also available via <a href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. + The most recent release of McCLIM is 0.9.3, in November 2006, + available here: <a + href="downloads/mcclim-0.9.3.tar.gz">mcclim-0.9.3.tar.gz</a>. It + is also available via <a + href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. </p> <p>A snapshot of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">CVS repository</a> is made nightly.</p> <h2>Recent News</h2> <p> - 2006-11-02: McCLIM 0.9.3 "All Saints' Day" released. + 2006-11-02: McCLIM 0.9.3 "All Souls' Day" released. </p> <p> @@ -120,7 +124,7 @@ </div> <br> <hr> -$Date: 2006/11/02 18:08:26 $ +$Date: 2006/11/02 18:37:04 $

1 0

[mcclim-cvs] CVS mcclim/ReleaseNotes
by afuchs 02 Nov '06

02 Nov '06

Update of /project/mcclim/cvsroot/mcclim/ReleaseNotes In directory clnet:/tmp/cvs-serv22584 Modified Files: 0-9-3-all-souls'-day Log Message: Ugh. misspelled CLISP.

1 0