diff options
Diffstat (limited to 'examples/08-pong.lisp')
-rw-r--r-- | examples/08-pong.lisp | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/examples/08-pong.lisp b/examples/08-pong.lisp index 51de28d..6fc9faa 100644 --- a/examples/08-pong.lisp +++ b/examples/08-pong.lisp @@ -173,19 +173,18 @@ on which boundary VAL is outside of." (defmethod ww::boot ((app solo-pong)) "Adds the intro text and sets up the start button handler." (sdl2:hide-cursor) - (ww::add-unit - app - (setf (intro-text app) + (let ((intro-text (make-instance - 'ww::text + 'ww:text :content "Press any key to start" :font (ww::get-asset "Ticketing.ttf") :x 160 :y 300 :scale-x 3.0 :scale-y 3.0))) - - (ww::add-handler app #'press-to-start)) + (setf (intro-text app) intro-text) + (ww:add-unit app intro-text)) + (ww:add-handler app #'press-to-start)) (defun start () (ww::start |