[mcclim-cvs] CVS mcclim/Backends/PostScript
tmoore
tmoore at common-lisp.net
Wed Mar 29 10:43:38 UTC 2006
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
More information about the Mcclim-cvs
mailing list