From 1cba62c355602528890ecf8f669f5362e4c4d9a7 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 8 Jul 2022 12:13:16 -0500
Subject: [add] [doc] README; [refactor] rendering of containers

---
 examples/08-pong.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'examples/08-pong.lisp')

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
-- 
cgit v1.2.3