fix font class bugs

dmb2 · Aug 30, 2012 · d306766 · d306766
1 parent 3235774
commit d306766
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/clx-truetype.lisp b/clx-truetype.lisp
@@ -11,9 11,9 @@
  (overline :type boolean :initarg :overline :initform nil :accessor font-overline :documentation "Draw line over text string.")
  (background :initarg :background :initform nil :accessor font-background :documentation "Background color.")
  (foreground :initarg :foreground :initform nil :accessor font-foreground :documentation "Foreground color.")
- (overwrite-gcontext :type boolean :initarg overwrite-gcontext :initform nil 
  (overwrite-gcontext :type boolean :initarg :overwrite-gcontext :initform nil 
  :accessor font-overwrite-gcontext :documentation "Use font values for background and foreground colors.")
- (antialias :type boolean :initarg antialias :initform t :accessor font-antialias :documentation "Antialias text string.")
  (antialias :type boolean :initarg :antialias :initform t :accessor font-antialias :documentation "Antialias text string.")
  (string-bboxes :type hash-table :initform (make-hash-table :test 'equal) :accessor font-string-bboxes
  :documentation "Cache for bboxes")
  (string-line-bboxes :type hash-table :initform (make-hash-table :test 'equal) :accessor font-string-line-bboxes
@@ -48,7 48,6 @@
  (clrhash (font-string-bboxes font))
  (clrhash (font-string-line-bboxes font)))
 
-
 (defmethod (setf font-size) :after (value (font font))
  (clrhash (font-string-bboxes font))
  (clrhash (font-string-line-bboxes font)))

diff --git a/package.lisp b/package.lisp
@@ -12,7 12,7 @@
  :font-strikethrough
  :font-overline
  :font-background
- :font-foregroung
  :font-foreground
  :font-overwrite-gcontext
  :cache-font-file
  :*font-dirs*