diff options
| -rw-r--r-- | wheelwork.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 5807f30..20c5d86 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -722,7 +722,7 @@ ASSET-ARGS is a plist to pass to make-instance for the given resource. (setf vao vao% elem-count count%)) (hq:with-plist (l r (top t) b) (cl-fond:compute-extent (font-object font) content) - (setf base-width ((- r l)) + (setf base-width (- r l) base-height (+ top b))))) (defmethod cleanup ((text text)) |