mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

[mcclim-cvs] CVS mcclim
by rstrandh 01 Aug '09

01 Aug '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv12186 Modified Files: recording.lisp Log Message: Patch from Nikodemus Siivola fixing a problem with missing unquotes. --- /project/mcclim/cvsroot/mcclim/recording.lisp 2009/06/16 05:15:35 1.143 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2009/08/01 05:23:47 1.144 @@ -324,7 +324,7 @@ (,continuation (,stream ,record) ,(declare-ignorable-form* stream record) ,@body)) - (declare (dynamic-extent #'constructor #'continuation)) + (declare (dynamic-extent #',constructor #',continuation)) (,',func-name ,stream #',continuation ,record-type #',constructor ,@m-i-args)))))))

1 0

[mcclim-cvs] CVS mcclim
by rstrandh 01 Aug '09

01 Aug '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv11826 Modified Files: stream-output.lisp Log Message: Removed some tabs at the request of Cyrus Harmon. There are lots of tabs in McCLIM source code, so I don't think it is practical to remove them all right away. Perhaps take the advantage when there are other modifications as well. --- /project/mcclim/cvsroot/mcclim/stream-output.lisp 2009/07/31 11:32:21 1.64 +++ /project/mcclim/cvsroot/mcclim/stream-output.lisp 2009/08/01 05:22:51 1.65 @@ -198,12 +198,12 @@ :end-of-page-action :scroll :default-view +textual-view+)) (defmethod stream-force-output :after ((stream - standard-extended-output-stream)) + standard-extended-output-stream)) (with-sheet-medium (medium stream) (medium-force-output medium))) (defmethod stream-finish-output :after ((stream - standard-extended-output-stream)) + standard-extended-output-stream)) (with-sheet-medium (medium stream) (medium-finish-output medium)))

1 0

[mcclim-cvs] CVS mcclim
by rstrandh 31 Jul '09

31 Jul '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv9781 Modified Files: stream-output.lisp Log Message: Patch from Nikodemus Siivola adding an :after method on stream-finish-output for standard-extended-output-stream. --- /project/mcclim/cvsroot/mcclim/stream-output.lisp 2008/10/23 20:49:58 1.63 +++ /project/mcclim/cvsroot/mcclim/stream-output.lisp 2009/07/31 11:32:21 1.64 @@ -202,6 +202,11 @@ (with-sheet-medium (medium stream) (medium-force-output medium))) +(defmethod stream-finish-output :after ((stream + standard-extended-output-stream)) + (with-sheet-medium (medium stream) + (medium-finish-output medium))) + (defmethod compose-space ((pane standard-extended-output-stream) &key width height) (declare (ignorable width height))

1 0

[mcclim-cvs] CVS mcclim
by ahefner 16 Jun '09

16 Jun '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv7646 Modified Files: recording.lisp Log Message: Fix bounding rectangle computation for open polygons. --- /project/mcclim/cvsroot/mcclim/recording.lisp 2008/08/19 15:56:50 1.142 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2009/06/16 05:15:35 1.143 @@ -1508,8 +1508,7 @@ (if (eql i final-index) (values final-xn final-yn) (values (svref coord-seq (+ i 2)) - (svref coord-seq (+ i - 3))))) + (svref coord-seq (+ i 3))))) (multiple-value-bind (ex1 ey1) (normalize-coords (- x xp) (- y yp)) (multiple-value-bind (ex2 ey2) @@ -1559,8 +1558,8 @@ (maxf max-y (+ y ny)))))))) (unless closed (multiple-value-bind (x y) - (values (svref coord-seq final-index) - (svref coord-seq (1+ final-index))) + (values (svref coord-seq (- len 2)) + (svref coord-seq (- len 1))) (minf min-x (- x border)) (minf min-y (- y border)) (maxf max-x (+ x border))

1 0

[mcclim-cvs] CVS mcclim/Experimental/freetype
by ahefner 14 Jun '09

14 Jun '09

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory cl-net:/tmp/cvs-serv3498 Modified Files: xrender-fonts.lisp Log Message: Transform :fixed to :fix during font lookup. Apparently necessary to run on a machine without fontconfig. --- /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp 2008/01/31 08:58:20 1.1 +++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp 2009/06/14 18:37:39 1.2 @@ -439,6 +439,7 @@ (setf face (or face :roman)) (setf family (or family :fix)) (setf size (or size :normal)) + (when (eq family :fixed) (setf family :fix)) (cond (size (setf size (getf *sizes* size size)) (let ((val (gethash (list display family face size) *display-face-hash*)))

1 0

[mcclim-cvs] CVS mcclim
by ahefner 14 Jun '09

14 Jun '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv3360 Modified Files: text-editor-gadget.lisp Log Message: Fix :fixed text style choice. --- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2008/11/09 19:52:44 1.12 +++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2009/06/14 18:33:45 1.13 @@ -40,7 +40,7 @@ ;;; are defined here. (defparameter *default-text-field-text-style* - (make-text-style :fixed :roman :normal)) + (make-text-style :fix :roman :normal)) (defclass editor-substrate-mixin (value-gadget) ((activation-gestures :reader activation-gestures

1 0

[mcclim-cvs] CVS mcclim
by rstrandh 08 Jun '09

08 Jun '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv26572 Added Files: mcclim-tiff-bitmaps.asd Log Message: Tiff bitmap formats from Cyrus Harmon. --- /project/mcclim/cvsroot/mcclim/mcclim-tiff-bitmaps.asd 2009/06/08 14:39:57 NONE +++ /project/mcclim/cvsroot/mcclim/mcclim-tiff-bitmaps.asd 2009/06/08 14:39:57 1.1 ;;; -*- Mode: Lisp -*- ;;; (c) copyright 2009 by ;;; Cyrus Harmon (ch-lisp(a)bobobeach.com) ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. (asdf:defsystem :mcclim-tiff-bitmaps :description "Support for TIFF images in McCLIM bitmap reading functions." :depends-on (:mcclim :retrospectiff) :components ((:file "tiff" :pathname #P"Extensions/Bitmap-formats/tiff")))

1 0

[mcclim-cvs] CVS mcclim/Extensions/Bitmap-formats
by rstrandh 08 Jun '09

08 Jun '09

Update of /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats In directory cl-net:/tmp/cvs-serv26572/Extensions/Bitmap-formats Added Files: tiff.lisp Log Message: Tiff bitmap formats from Cyrus Harmon. --- /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats/tiff.lisp 2009/06/08 14:39:57 NONE +++ /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats/tiff.lisp 2009/06/08 14:39:57 1.1 ;;; -*- Mode: Lisp; Package: MCCLIM-IMAGES -*- ;;; (c) copyright 2009 by ;;; Cyrus Harmon (ch-lisp(a)bobobeach.com) ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. (in-package :clim-internals) (define-bitmap-file-reader :tiff (pathname) (let ((tiff-image (tiff:read-tiff-file pathname))) (with-accessors ((height tiff:tiff-image-length) (width tiff:tiff-image-width) (ncomp tiff:tiff-image-samples-per-pixel) (data tiff:tiff-image-data)) tiff-image (let* ((array (make-array (list height width) :element-type '(unsigned-byte 32)))) (case ncomp (3 (dotimes (x width) (dotimes (y height) (let ((red (aref data (+ (* x 3) (* y width 3)))) (green (aref data (+ (* x 3) (* y width 3) 1))) (blue (aref data (+ (* x 3) (* y width 3) 2)))) (setf (aref array y x) (dpb red (byte 8 0) (dpb green (byte 8 8) (dpb blue (byte 8 16) (dpb (- 255 0) (byte 8 24) 0))))))))) (1 (dotimes (x width) (dotimes (y height) (let ((gray (aref data (+ x (* y width))))) (setf (aref array y x) (dpb gray (byte 8 0) (dpb gray (byte 8 8) (dpb gray (byte 8 16) (dpb (- 255 0) (byte 8 24) 0)))))))))) array)))) (define-bitmap-file-reader :tif (pathname) (read-bitmap-file pathname :format :tiff))

1 0

[mcclim-cvs] CVS mcclim
by rstrandh 07 Jun '09

07 Jun '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv26737 Modified Files: mcclim-gif-bitmaps.asd mcclim-jpeg-bitmaps.asd Log Message: Patch from Cyrus Harmon that removes two unnecessary packages, and which fixes a typo in mcclim-jpeg-bitmaps. --- /project/mcclim/cvsroot/mcclim/mcclim-gif-bitmaps.asd 2008/04/14 16:46:37 1.1 +++ /project/mcclim/cvsroot/mcclim/mcclim-gif-bitmaps.asd 2009/06/07 10:32:18 1.2 @@ -18,12 +18,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(cl:defpackage :mcclim-gif-bitmaps.system - (:use :asdf :cl)) - -(cl:in-package :mcclim-gif-bitmaps.system) - -(defsystem :mcclim-gif-bitmaps - :description "Support for GIF images in McCLIM bitmap reading functions." - :depends-on (:mcclim :skippy) - :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/gif"))) +(asdf:defsystem :mcclim-gif-bitmaps + :description "Support for GIF images in McCLIM bitmap reading functions." + :depends-on (:mcclim :skippy) + :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/gif"))) --- /project/mcclim/cvsroot/mcclim/mcclim-jpeg-bitmaps.asd 2008/04/14 16:46:37 1.1 +++ /project/mcclim/cvsroot/mcclim/mcclim-jpeg-bitmaps.asd 2009/06/07 10:32:18 1.2 @@ -18,12 +18,8 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(cl:defpackage :mcclim-gif-bitmaps.system - (:use :asdf :cl)) +(asdf:defsystem :mcclim-jpeg-bitmaps + :description "Support for JPEG images in McCLIM bitmap reading functions." + :depends-on (:mcclim :cl-jpeg) + :components ((:file "jpeg" :pathname #P"Extensions/Bitmap-formats/jpeg"))) -(cl:in-package :mcclim-gif-bitmaps.system) - -(defsystem :mcclim-jpeg-bitmaps - :description "Support for JPEG images in McCLIM bitmap reading functions." - :depends-on (:mcclim :cl-jpeg) - :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/jpeg")))

1 0

[mcclim-cvs] CVS mcclim
by ahefner 07 Jun '09

07 Jun '09

Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv32296 Modified Files: clim-listener.asd Log Message: ASDF commands for the listener. --- /project/mcclim/cvsroot/mcclim/clim-listener.asd 2008/10/22 23:26:58 1.5 +++ /project/mcclim/cvsroot/mcclim/clim-listener.asd 2009/06/07 08:48:00 1.6 @@ -16,8 +16,11 @@ (:file "util" :depends-on ("package")) (:file "icons" :depends-on ("package" "util")) (:file "file-types" :depends-on ("package" "icons" "util")) - (:file "dev-commands" :depends-on ("package" "appearance" "icons" "file-types" "util")) + (:file "asdf" :depends-on ("package")) + (:file "dev-commands" + :depends-on ("package" "appearance" "icons" "file-types" "util" "asdf")) (:file "wholine" :depends-on ("package" "dev-commands" "util")) - (:file "listener" :depends-on ("package" "wholine" "file-types" "icons" "dev-commands" "util")) + (:file "listener" + :depends-on ("package" "wholine" "file-types" "icons" "dev-commands" "util")) #+CMU (:file "cmu-hacks" :depends-on ("package"))))))

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs