diff options
| -rw-r--r-- | examples/03-font-render.lisp | 31 | ||||
| -rw-r--r-- | wheelwork.lisp | 2 |
2 files changed, 13 insertions, 20 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index fb43b08..b4b9be2 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -35,34 +35,29 @@ :content "Hell! Oh World..." :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2))))) - (ww::set-height-preserve-aspect hello 100) - (setf (ww::unit-x hello) 100 - (ww::unit-y hello) 400) - (ww::add-handler hello #'marquee) (ww::add-handler hello #'change-text-color) - (ww::add-handler hello (ww::on-mousedown () (format t "I Was Clicked at ~a,~a!~%" - x y))) + (ww::add-handler hello + (ww::on-mousedown () + (format t "I Was Clicked at ~a,~a!~%" + x y))) (ww::refocus-on hello) - - (describe hello) - - (ww::add-unit app hello) - )) + (ww::add-unit app hello))) (defun start () - (ww::start (make-instance 'font-display - :fps 60 - :refocus-on-mousedown-p nil - :title "Wheelwork Example: Font display" - :asset-root (merge-pathnames - "examples/" - (asdf:system-source-directory :wheelwork))) + (ww::start (make-instance + 'font-display + :fps 60 + :refocus-on-mousedown-p nil + :title "Wheelwork Example: Font display" + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))) :x 2380)) diff --git a/wheelwork.lisp b/wheelwork.lisp index 555366b..5807f30 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -422,8 +422,6 @@ TARGET is FOCUSABLEP" "EVENT-TYPE must be one of the slot value names for WHEELWORK::LISTENER." (?> (unit) listener #$(slot-value $listener event-type))) - - (defun eventloop-keydown (app sdl-keysym) (let ((target (get-focus app))) (when-let (handler (get-handler-for target 'keydown)) |