[add] frameset class and an [exmaple] using it

1 files changed, 2 insertions, 2 deletions

diff --git a/src/application.lisp b/src/application.lisp
index 2f6747e..d38cd8a 100644
--- a/src/application.lisp
+++ b/src/application.lisp
@@ -18,7 +18,7 @@
    (window :with :a)
    (refocus-on-mousedown-p :std t)
    (focus last-motion-target :with :a)
-   (fps :with :std 30 :doc "Frames Per Second")
+   (fps :std 30 :doc "Frames Per Second")
    (frame-wait :r)))
 
 
@@ -82,7 +82,7 @@
   "Runs all of the handlers objects listening for perframe events, if
 those objects are currently part of the scene tree."
   (let ((table (perframe-table (listener app)))
-        (time (get-universal-time)))
+        (time (sdl2:get-ticks)))
     (loop for target being the hash-key of table
           for handlers = (slot-value (listener target) 'perframe)
           ;; only fire perframe when target is in scene