Permalink
Browse files

fix font class bugs

  • Loading branch information...
1 parent 3235774 commit d30676637b267a08a8d16e6b22d91b0fa3e5e18c @filonenko-mikhail committed Aug 30, 2012
Showing with 3 additions and 4 deletions.
  1. +2 −3 clx-truetype.lisp
  2. +1 −1 package.lisp
View
@@ -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)))
View
@@ -12,7 +12,7 @@
:font-strikethrough
:font-overline
:font-background
- :font-foregroung
+ :font-foreground
:font-overwrite-gcontext
:cache-font-file
:*font-dirs*

0 comments on commit d306766

Please sign in to comment.