mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

[mcclim-cvs] CVS mcclim/Webpage
by crhodes 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv11257 Modified Files: index.html Log Message: Link to binaries; note their highly-experimental status --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 09:37:02 1.12 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 10:06:08 1.13 @@ -59,6 +59,15 @@ </p> <h2>Recent News</h2> <p> + 2006-03-30: Highly-experimental binaries of McCLIM 0.9.2, set + up to start up the McCLIM listener, and incorporating the + McCLIM demos as well as a graphical debugger and inspector, + are available for download. Supported platforms: <a + href="downloads/mcclim-listener-0.9.2-ppc-osx.tar.bz2">PPC/OS + X</a>, <a + href="downloads/mcclim-listener-0.9.2-x86-linux.tar.bz2">x86/Linux</a>. + + <p> 2006-03-26: McCLIM 0.9.2 "Laetare Sunday" released. </p> <p> @@ -106,7 +115,7 @@ </div> <br> <hr> -$Date: 2006/03/30 09:37:02 $ +$Date: 2006/03/30 10:06:08 $

1 0

[mcclim-cvs] CVS mcclim/Webpage
by crhodes 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv7900 Modified Files: index.html Log Message: Update the webpage. --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2005/07/30 17:10:47 1.11 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 09:37:02 1.12 @@ -55,43 +55,58 @@ <h2><a name="downloads">Releases</a></h2> A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly. <p> - The most recent release of McCLIM is 0.9.1, in March 2005, available here: <a href="downloads/mcclim-0.9.1.tar.gz">mcclim-0.9.1.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.2, in March 2006, available here: <a href="downloads/mcclim-0.9.2.tar.gz">mcclim-0.9.2.tar.gz</a>. It is also available via <a href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. </p> <h2>Recent News</h2> <p> - McCLIM CVS hosting moved to - <a href="http://common-lisp.net/">common-lisp.net</a>; - if you're a developer you should already have heard about - this (if not, mail admin(a)common-lisp.net). - <p> - Tim Moore presented a - <a href="clim-paper.pdf">paper</a> - written by Robert Strandh and himself - at the International Lisp Conference during the last week of October 2002. + 2006-03-26: McCLIM 0.9.2 "Laetare Sunday" released. + </p> + <p> + 2005-03-06: McCLIM 0.9.1 "Mothering Sunday" released. + <p> + 2004-12-09: McCLIM CVS hosting moved to <a + href="http://common-lisp.net/">common-lisp.net</a>; if you're + a developer you should already have heard about this (if not, + mail admin(a)common-lisp.net). + </p> + <p> + 2002-10-29: Tim Moore presented a <a + href="clim-paper.pdf">paper</a> written by Robert Strandh and + himself at the International Lisp Conference during the last + week of October 2002. </p> <h2>Who's involved?</h2> <p> McCLIM is written by a diverse group of individuals from across the world. - The primary developers include: + Contributors past and present include: </p> <ul> + <li>Daniel Barlow</li> <li>Gilbert Baumann</li> <li>Julien Boninfan</li> <li>Alexey Dejneka</li> + <li>Clemens Fruhwirth</li> + <li>Andreas Fuchs</li> + <li>Robert Goldman</li> <li>Iban Hatchondo</li> <li>Andy Hefner</li> + <li>Brian Mastenbrook</li> <li>Mike McDonald</li> <li>Timothy Moore</li> <li>Edena Pixel</li> + <li>Max-Gerd Retzlaff</li> + <li>Christophe Rhodes</li> + <li>Duncan Rose</li> <li>Arnaud Rouanet</li> <li>Lionel Salabartan</li> + <li>Rudi Schlatte</li> <li>Brian Spilsbury</li> <li>Robert Strandh</li> </ul> </div> <br> <hr> -$Date: 2005/07/30 17:10:47 $ +$Date: 2006/03/30 09:37:02 $

1 0

[mcclim-cvs] CVS mcclim/Looks
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Looks In directory clnet:/tmp/cvs-serv13084/Looks Modified Files: pixie.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp 2003/10/08 17:00:56 1.15 +++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp 2006/03/29 10:43:50 1.16 @@ -1,4 +1,4 @@ -(in-package :CLIM-INTERNALS) +(in-package :clim-internals) ;;; ; @@ -341,6 +341,7 @@ ; We derive from the slider, since the slider is the same, only ; less so. +;;; XXX Probably should derive from scroll-bar too. (defconstant +pixie-scroll-bar-pane-thumb-size+ 5000.0) (defconstant +pixie-scroll-bar-thumb-half-height+ 17) @@ -476,6 +477,14 @@ (yb (translate-range-value (+ v ts) minv (+ maxv ts) y1 y2))) (make-rectangle* x1 (- ya 1) x2 (+ yb 1))))))))) +(defmethod* (setf scroll-bar-values) + (min-value max-value thumb-size value (scroll-bar pixie-scroll-bar-pane)) + (setf (slot-value scroll-bar 'min-value) min-value + (slot-value scroll-bar 'max-value) max-value + (slot-value scroll-bar 'thumb-size) thumb-size + (slot-value scroll-bar 'value) value) + (dispatch-repaint scroll-bar (sheet-region scroll-bar))) + (defmethod handle-event ((pane pixie-scroll-bar-pane) (event pointer-button-release-event)) (with-slots (armed dragging repeating was-repeating) pane (setf was-repeating repeating)

1 0

[mcclim-cvs] CVS mcclim/Lisp-Dep
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv13084/Lisp-Dep Modified Files: fix-acl.lisp mp-acl.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp 2005/02/07 21:16:58 1.10 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp 2006/03/29 10:43:48 1.11 @@ -11,107 +11,107 @@ (defpackage :clim-mop (:use :clos :common-lisp) - (:export "ACCESSOR-METHOD-SLOT-DEFINITION" - "ADD-DEPENDENT" - "ADD-DIRECT-METHOD" - "ADD-DIRECT-SUBCLASS" - "ADD-METHOD" - "ALLOCATE-INSTANCE" - "BUILT-IN-CLASS" - "CLASS" - "CLASS-DEFAULT-INITARGS" - "CLASS-DIRECT-DEFAULT-INITARGS" - "CLASS-DIRECT-SLOTS" - "CLASS-DIRECT-SUBCLASSES" - "CLASS-DIRECT-SUPERCLASSES" - "CLASS-FINALIZED-P" - "CLASS-NAME" - "CLASS-PRECEDENCE-LIST" - "CLASS-PROTOTYPE" - "CLASS-SLOTS" - "COMPUTE-APPLICABLE-METHODS" - "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" - "COMPUTE-CLASS-PRECEDENCE-LIST" - "COMPUTE-DEFAULT-INITARGS" - "COMPUTE-DISCRIMINATING-FUNCTION" - "COMPUTE-EFFECTIVE-METHOD" - "COMPUTE-EFFECTIVE-SLOT-DEFINITION" - "COMPUTE-SLOTS" - "DIRECT-SLOT-DEFINITION" - "DIRECT-SLOT-DEFINITION-CLASS" - "EFFECTIVE-SLOT-DEFINITION" - "EFFECTIVE-SLOT-DEFINITION-CLASS" - "ENSURE-CLASS" - "ENSURE-CLASS-USING-CLASS" - "ENSURE-GENERIC-FUNCTION" - "ENSURE-GENERIC-FUNCTION-USING-CLASS" - "EQL-SPECIALIZER" - "EQL-SPECIALIZER-OBJECT" - "EXTRACT-LAMBDA-LIST" - "EXTRACT-SPECIALIZER-NAMES" - "FINALIZE-INHERITANCE" - "FIND-METHOD-COMBINATION" - "FORWARD-REFERENCED-CLASS" - "FUNCALLABLE-STANDARD-CLASS" - "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" - "FUNCALLABLE-STANDARD-OBJECT" - "FUNCTION" - "GENERIC-FUNCTION" - "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" - "GENERIC-FUNCTION-DECLARATIONS" - "GENERIC-FUNCTION-LAMBDA-LIST" - "GENERIC-FUNCTION-METHOD-CLASS" - "GENERIC-FUNCTION-METHOD-COMBINATION" - "GENERIC-FUNCTION-METHODS" - "GENERIC-FUNCTION-NAME" - "INTERN-EQL-SPECIALIZER" - "MAKE-INSTANCE" - "MAKE-METHOD-LAMBDA" - "MAP-DEPENDENTS" - "METAOBJECT" - "METHOD" - "METHOD-COMBINATION" - "METHOD-FUNCTION" - "METHOD-GENERIC-FUNCTION" - "METHOD-LAMBDA-LIST" - "METHOD-QUALIFIERS" - "METHOD-SPECIALIZERS" - "READER-METHOD-CLASS" - "REMOVE-DEPENDENT" - "REMOVE-DIRECT-METHOD" - "REMOVE-DIRECT-SUBCLASS" - "REMOVE-METHOD" - "SET-FUNCALLABLE-INSTANCE-FUNCTION" - "SLOT-BOUNDP-USING-CLASS" - "SLOT-DEFINITION" - "SLOT-DEFINITION-ALLOCATION" - "SLOT-DEFINITION-INITARGS" - "SLOT-DEFINITION-INITFORM" - "SLOT-DEFINITION-INITFUNCTION" - "SLOT-DEFINITION-LOCATION" - "SLOT-DEFINITION-NAME" - "SLOT-DEFINITION-READERS" - "SLOT-DEFINITION-TYPE" - "SLOT-DEFINITION-WRITERS" - "SLOT-MAKUNBOUND-USING-CLASS" - "SLOT-VALUE-USING-CLASS" - "SPECIALIZER" - "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" - "SPECIALIZER-DIRECT-METHODS" - "STANDARD-ACCESSOR-METHOD" - "STANDARD-CLASS" - "STANDARD-DIRECT-SLOT-DEFINITION" - "STANDARD-EFFECTIVE-SLOT-DEFINITION" - "STANDARD-GENERIC-FUNCTION" - "STANDARD-INSTANCE-ACCESS" - "STANDARD-METHOD" - "STANDARD-OBJECT" - "STANDARD-READER-METHOD" - "STANDARD-SLOT-DEFINITION" - "STANDARD-WRITER-METHOD" - "UPDATE-DEPENDENT" - "VALIDATE-SUPERCLASS" - "WRITER-METHOD-CLASS")) + (:export #:accessor-method-slot-definition + #:add-dependent + #:add-direct-method + #:add-direct-subclass + #:add-method + #:allocate-instance + #:built-in-class + #:class + #:class-default-initargs + #:class-direct-default-initargs + #:class-direct-slots + #:class-direct-subclasses + #:class-direct-superclasses + #:class-finalized-p + #:class-name + #:class-precedence-list + #:class-prototype + #:class-slots + #:compute-applicable-methods + #:compute-applicable-methods-using-classes + #:compute-class-precedence-list + #:compute-default-initargs + #:compute-discriminating-function + #:compute-effective-method + #:compute-effective-slot-definition + #:compute-slots + #:direct-slot-definition + #:direct-slot-definition-class + #:effective-slot-definition + #:effective-slot-definition-class + #:ensure-class + #:ensure-class-using-class + #:ensure-generic-function + #:ensure-generic-function-using-class + #:eql-specializer + #:eql-specializer-object + #:extract-lambda-list + #:extract-specializer-names + #:finalize-inheritance + #:find-method-combination + #:forward-referenced-class + #:funcallable-standard-class + #:funcallable-standard-instance-access + #:funcallable-standard-object + #:function + #:generic-function + #:generic-function-argument-precedence-order + #:generic-function-declarations + #:generic-function-lambda-list + #:generic-function-method-class + #:generic-function-method-combination + #:generic-function-methods + #:generic-function-name + #:intern-eql-specializer + #:make-instance + #:make-method-lambda + #:map-dependents + #:metaobject + #:method + #:method-combination + #:method-function + #:method-generic-function + #:method-lambda-list + #:method-qualifiers + #:method-specializers + #:reader-method-class + #:remove-dependent + #:remove-direct-method + #:remove-direct-subclass + #:remove-method + #:set-funcallable-instance-function + #:slot-boundp-using-class + #:slot-definition + #:slot-definition-allocation + #:slot-definition-initargs + #:slot-definition-initform + #:slot-definition-initfunction + #:slot-definition-location + #:slot-definition-name + #:slot-definition-readers + #:slot-definition-type + #:slot-definition-writers + #:slot-makunbound-using-class + #:slot-value-using-class + #:specializer + #:specializer-direct-generic-functions + #:specializer-direct-methods + #:standard-accessor-method + #:standard-class + #:standard-direct-slot-definition + #:standard-effective-slot-definition + #:standard-generic-function + #:standard-instance-access + #:standard-method + #:standard-object + #:standard-reader-method + #:standard-slot-definition + #:standard-writer-method + #:update-dependent + #:validate-superclass + #:writer-method-class)) ;;;(eval-when (:compile-toplevel :load-toplevel :execute) ;;; (do-external-symbols (sym :clos) @@ -165,3 +165,6 @@ .args.)))))) (t `(defun ,fun ,args ,@body)))) ) + + + --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2004/03/10 12:03:45 1.5 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2006/03/29 10:43:48 1.6 @@ -23,7 +23,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(in-package :CLIM-INTERNALS) +(in-package :clim-internals) (defconstant *multiprocessing-p* t)

1 0

[mcclim-cvs] CVS mcclim/Experimental/unzip
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Experimental/unzip In directory clnet:/tmp/cvs-serv13084/Experimental/unzip Modified Files: inflate.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Experimental/unzip/inflate.lisp 2003/03/21 15:15:09 1.2 +++ /project/mcclim/cvsroot/mcclim/Experimental/unzip/inflate.lisp 2006/03/29 10:43:46 1.3 @@ -220,7 +220,7 @@ ;; needed. We loop, until we have enough bits to make a ;; sensible decision. `((lambda (ht) - (declare (type (simple-array T (*)) ht)) + (declare (type (simple-array t (*)) ht)) (let ((m ',(car ms)) (b 0) x) (declare (type (unsigned-byte 24) b)) ;; (bs/ensure-n-bits 24) @@ -246,7 +246,7 @@ `((lambda (huffman-tree n) (declare (type (integer 0 1000) n)) (let ((res (make-array n :initial-element 0))) - (declare (type (simple-array T (*)) res)) + (declare (type (simple-array t (*)) res)) (do ((i 0 i)) ((>= i n)) (declare (type (integer 0 1000) i)) @@ -507,7 +507,7 @@ n-hclen (+ 4 (bs/read-byte 4)) hclens (make-array 19 :initial-element 0)) (locally - (declare (type (simple-array T (*)) hclens) + (declare (type (simple-array t (*)) hclens) (type (unsigned-byte 6) n-hdist) (type (unsigned-byte 5) n-hclen)) (loop

1 0

[mcclim-cvs] CVS mcclim/Experimental
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Experimental In directory clnet:/tmp/cvs-serv13084/Experimental Modified Files: pointer-doc-hack.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Experimental/pointer-doc-hack.lisp 2003/06/01 15:07:58 1.1 +++ /project/mcclim/cvsroot/mcclim/Experimental/pointer-doc-hack.lisp 2006/03/29 10:43:44 1.2 @@ -235,7 +235,7 @@ ((eql button +pointer-left-button+) *icon-mouse-left*) ((eql button +pointer-middle-button+) *icon-mouse-middle*) ((eql button +pointer-right-button+) *icon-mouse-right*) - (T name))) + (t name))) (if (not (typep name 'indexed-pattern)) (format pstream "~A: " name) (multiple-value-bind (x y) (stream-cursor-position pstream) (draw-pattern* pstream name x y)

1 0

[mcclim-cvs] CVS mcclim/Examples
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Examples In directory clnet:/tmp/cvs-serv13084/Examples Modified Files: demodemo.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Examples/demodemo.lisp 2005/02/01 05:35:30 1.7 +++ /project/mcclim/cvsroot/mcclim/Examples/demodemo.lisp 2006/03/29 10:43:43 1.8 @@ -211,4 +211,4 @@ -(format T "~&;; try (CLIM-DEMO::DEMODEMO)~%") +(format t "~&;; try (CLIM-DEMO::DEMODEMO)~%")

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle/windowing
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory clnet:/tmp/cvs-serv13084/Backends/beagle/windowing Modified Files: mirror.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/mirror.lisp 2005/06/05 19:52:57 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/mirror.lisp 2006/03/29 10:43:38 1.7 @@ -455,7 +455,7 @@ (send (send mirror 'window) :frame-rect-for-content-rect rect :style-mask (%beagle-style-mask-for-frame sheet)) - :display T)))) + :display t)))) (defun %beagle-style-mask-for-frame (sheet)

1 0

[mcclim-cvs] CVS mcclim/Backends/PostScript
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript In directory clnet:/tmp/cvs-serv13084/Backends/PostScript Modified Files: afm.lisp class.lisp encoding.lisp font.lisp graphics.lisp package.lisp sheet.lisp standard-metrics.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/afm.lisp 2005/08/13 14:28:23 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/afm.lisp 2006/03/29 10:43:38 1.5 @@ -25,7 +25,7 @@ ;;; - Kerning, ligatures. ;;; - Full AFM/AMFM/ACFM support. -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) (defun space-char-p (char) (member char '(#\Space #\Tab))) --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp 2006/02/06 16:47:47 1.8 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp 2006/03/29 10:43:38 1.9 @@ -32,7 +32,7 @@ ;;; ;;;--GB -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) ;;;; Medium --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/encoding.lisp 2004/12/03 11:42:43 1.1 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/encoding.lisp 2006/03/29 10:43:38 1.2 @@ -23,7 +23,7 @@ ;;; Boston, MA 02111-1307 USA. -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) (defvar *iso-latin-1-symbolic-names* '#(NIL NIL NIL NIL --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/font.lisp 2006/03/10 10:56:01 1.9 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/font.lisp 2006/03/29 10:43:38 1.10 @@ -23,7 +23,7 @@ ;;; - Kerning, ligatures. ;;; - device fonts -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) (defclass font-info () ((name :type string :initarg :name :reader font-info-name) --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/graphics.lisp 2006/03/10 10:56:01 1.16 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/graphics.lisp 2006/03/29 10:43:38 1.17 @@ -37,7 +37,7 @@ ;;; - structure this file ;;; - set miter limit? -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) ;;; Postscript output utilities (defun write-number (stream number) --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/package.lisp 2002/07/19 06:42:49 1.7 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/package.lisp 2006/03/29 10:43:38 1.8 @@ -18,24 +18,23 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(in-package :COMMON-LISP-USER) +(in-package :cl-user) -(defpackage "CLIM-POSTSCRIPT" - (:use "CLIM" "CLIM-EXTENSIONS" "CLIM-LISP") - (:export "LOAD-AFM-FILE") - (:import-from "CLIM-INTERNALS" - "GET-ENVIRONMENT-VARIABLE" - "MAP-REPEATED-SEQUENCE" - "ATAN*" - - "ELLIPSE-NORMAL-RADII*" - - "GET-TRANSFORMATION" - "UNTRANSFORM-ANGLE" - "WITH-TRANSFORMED-POSITION" +(defpackage #:clim-postscript + (:use #:clim #:clim-extensions #:clim-lisp) + (:export #:load-afm-file) + (:import-from #:clim-internals + #:get-environment-variable + #:map-repeated-sequence + #:atan* - "MAXF" + #:ellipse-normal-radii* - "PORT-TEXT-STYLE-MAPPINGS" - )) + #:get-transformation + #:untransform-angle + #:with-transformed-position + + #:maxf + + #:port-text-style-mappings)) --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2006/03/07 15:43:44 1.13 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp 2006/03/29 10:43:38 1.14 @@ -35,7 +35,7 @@ ;;; ;;;--GB -(in-package :CLIM-POSTSCRIPT) +(in-package :clim-postscript) (defmacro with-output-to-postscript-stream ((stream-var file-stream &rest options) --- /project/mcclim/cvsroot/mcclim/Backends/PostScript/standard-metrics.lisp 2005/08/13 14:28:23 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/standard-metrics.lisp 2006/03/29 10:43:38 1.3 @@ -1,6 +1,6 @@ -(IN-PACKAGE :CLIM-POSTSCRIPT) -(DEFINE-FONT-METRICS '"Times-Roman" +(in-package :clim-postscript) +(define-font-metrics '"Times-Roman" '683 '217 '0 @@ -209,7 +209,7 @@ (-1 "Yacute" 722 890 0 -22 703) (-1 "brokenbar" 200 676 14 -67 133) (-1 "onehalf" 750 676 14 -31 746))) -(DEFINE-FONT-METRICS '"Times-Bold" +(define-font-metrics '"Times-Bold" '676 '205 '0 @@ -419,7 +419,7 @@ (-1 "Yacute" 722 928 0 -15 699) (-1 "brokenbar" 220 691 19 -66 154) (-1 "onehalf" 750 688 12 7 775))) -(DEFINE-FONT-METRICS '"Times-Italic" +(define-font-metrics '"Times-Italic" '683 '205 '-15.5 @@ -630,7 +630,7 @@ (-1 "Yacute" 556 876 0 -78 633) (-1 "brokenbar" 275 666 18 -105 171) (-1 "onehalf" 750 676 10 -34 749))) -(DEFINE-FONT-METRICS '"Times-BoldItalic" +(define-font-metrics '"Times-BoldItalic" '699 '205 '-15 @@ -836,7 +836,7 @@ (-1 "Yacute" 611 904 0 -73 659) (-1 "brokenbar" 220 685 18 -66 154) (-1 "onehalf" 750 683 14 9 723))) -(DEFINE-FONT-METRICS '"Courier" +(define-font-metrics '"Courier" '629 '157 '0 @@ -1077,7 +1077,7 @@ (-1 "aring" 600 627 15 -53 559) (-1 "yacute" 600 672 157 -7 592) (-1 "icircumflex" 600 654 0 -94 505))) -(DEFINE-FONT-METRICS '"Courier-Oblique" +(define-font-metrics '"Courier-Oblique" '629 '157 '-12 @@ -1319,7 +1319,7 @@ (-1 "aring" 600 627 15 -76 569) (-1 "yacute" 600 672 157 4 683) (-1 "icircumflex" 600 654 0 -95 551))) -(DEFINE-FONT-METRICS '"Courier-Bold" +(define-font-metrics '"Courier-Bold" '626 '142 '0 @@ -1558,7 +1558,7 @@ (-1 "aring" 600 678 15 -35 570) (-1 "yacute" 600 661 142 4 601) (-1 "icircumflex" 600 657 0 -63 523))) -(DEFINE-FONT-METRICS '"Courier-BoldOblique" +(define-font-metrics '"Courier-BoldOblique" '626 '142 '-12 @@ -1798,7 +1798,7 @@ (-1 "aring" 600 678 15 -62 592) (-1 "yacute" 600 661 142 20 694) (-1 "icircumflex" 600 657 0 -77 566))) -(DEFINE-FONT-METRICS '"Helvetica" +(define-font-metrics '"Helvetica" '718 '207 '0 @@ -2006,7 +2006,7 @@ (-1 "Yacute" 667 929 0 -14 653) (-1 "brokenbar" 260 737 19 -94 167) (-1 "onehalf" 834 703 19 -43 773))) -(DEFINE-FONT-METRICS '"Helvetica-Oblique" +(define-font-metrics '"Helvetica-Oblique" '718 '207 '-12 @@ -2215,7 +2215,7 @@ (-1 "Yacute" 667 929 0 -167 806) (-1 "brokenbar" 260 737 19 -90 324) (-1 "onehalf" 834 703 19 -114 839))) -(DEFINE-FONT-METRICS '"Helvetica-Bold" +(define-font-metrics '"Helvetica-Bold" '718 '207 '0 @@ -2423,7 +2423,7 @@ (-1 "Yacute" 667 936 0 -15 653) (-1 "brokenbar" 280 737 19 -84 196) (-1 "onehalf" 834 710 19 -26 794))) -(DEFINE-FONT-METRICS '"Helvetica-BoldOblique" +(define-font-metrics '"Helvetica-BoldOblique" '718 '207 '-12

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle/output
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/output In directory clnet:/tmp/cvs-serv13084/Backends/beagle/output Modified Files: medium.lisp Log Message: Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there. Clean up events.lisp. Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications. Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/output/medium.lisp 2005/05/28 19:56:07 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/output/medium.lisp 2006/03/29 10:43:38 1.5 @@ -93,7 +93,7 @@ (send (medium-bezier-path medium) :set-line-width width) (when dashes - (when (eq dashes T) + (when (eq dashes t) ;; Provide default dash pattern... no idea why, but when I use ;; #(5.0 5.0) as the dafault dash, it gets displayed as a solid ;; line (no dashing). So the default is larger than it needs to @@ -694,7 +694,7 @@ (defmethod medium-draw-point* ((medium beagle-medium) x y) (let ((width (coerce (line-style-thickness (medium-line-style medium)) 'short-float))) - (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) T))) + (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) t))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -709,7 +709,7 @@ (with-transformed-positions ((sheet-native-transformation (medium-sheet medium)) coord-seq) (let ((width (coerce (line-style-thickness (medium-line-style medium)) 'short-float))) (do-sequence ((x y) coord-seq) - (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) T))))) + (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) t))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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