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