Add window event handlers to run-game.

2 files changed, 124 insertions, 18 deletions

diff --git a/chickadee.scm b/chickadee.scm
index 3022a52..a3434b8 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -248,6 +248,8 @@ border is disabled, otherwise it is enabled.")
 (define (warp-mouse x y)
   (sdl2:warp-mouse x y (unwrap-window (current-window))))
 
+(define noop (const #t))
+
 (define* (run-game #:key
                    (window-title "Chickadee!")
                    (window-width 640)
@@ -256,22 +258,32 @@ border is disabled, otherwise it is enabled.")
                    window-resizable?
                    (clear-color %default-clear-color)
                    (update-hz 60)
-                   (load (const #t))
-                   (update (const #t))
-                   (draw (const #t))
+                   (load noop)
+                   (update noop)
+                   (draw noop)
                    (quit abort-game)
-                   (key-press (const #t))
-                   (key-release (const #t))
-                   (text-input (const #t))
-                   (mouse-press (const #t))
-                   (mouse-release (const #t))
-                   (mouse-move (const #t))
-                   (mouse-wheel (const #t))
-                   (controller-add (const #t))
-                   (controller-remove (const #t))
-                   (controller-press (const #t))
-                   (controller-release (const #t))
-                   (controller-move (const #t))
+                   (key-press noop)
+                   (key-release noop)
+                   (text-input noop)
+                   (mouse-press noop)
+                   (mouse-release noop)
+                   (mouse-move noop)
+                   (mouse-wheel noop)
+                   (controller-add noop)
+                   (controller-remove noop)
+                   (controller-press noop)
+                   (controller-release noop)
+                   (controller-move noop)
+                   (window-keyboard-enter noop)
+                   (window-keyboard-leave noop)
+                   (window-mouse-enter noop)
+                   (window-mouse-leave noop)
+                   (window-show noop)
+                   (window-hide noop)
+                   (window-minimize noop)
+                   (window-maximize noop)
+                   (window-move noop)
+                   (window-resize noop)
                    error)
   (sdl-init)
   (start-text-input)
@@ -362,12 +374,35 @@ border is disabled, otherwise it is enabled.")
                             (controller-axis-event-which event))
                            (controller-axis-event-axis event)
                            (/ (controller-axis-event-value event) 32768.0)))
-         ((window-resized-event? event)
+         ((window-focus-gained-event? event)
+          (window-keyboard-enter))
+         ((window-focus-lost-event? event)
+          (window-keyboard-leave))
+         ((window-enter-event? event)
+          (window-mouse-enter))
+         ((window-leave-event? event)
+          (window-mouse-leave))
+         ((window-shown-event? event)
+          (window-show))
+         ((window-hidden-event? event)
+          (window-hide))
+         ((window-minimized-event? event)
+          (window-minimize))
+         ((window-maximized-event? event)
+          (window-maximize))
+         ((window-moved-event? event)
+          (match (window-event-vector event)
+            ((x y)
+             (window-move x y))))
+         ((window-size-changed-event? event)
           (match (window-event-vector event)
             ((width height)
+             (set! window-width width)
+             (set! window-height height)
              (atomic-box-set! default-viewport (make-viewport 0 0 width height))
              (atomic-box-set! default-projection
-                              (orthographic-projection 0 width height 0 0 1)))))))
+                              (orthographic-projection 0 width height 0 0 1))
+             (window-resize width height))))))
       ;; Process all pending events.
       (let loop ((event (poll-event)))
         (when event
diff --git a/doc/api.texi b/doc/api.texi
index b9e2229..468c5a3 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -46,7 +46,13 @@ calling @code{run-game} is already taken care of for you.
        [#:key-press] [#:key-release] [#:text-input] @
        [#:mouse-press] [#:mouse-release] [#:mouse-move] @
        [#:controller-add] [#:controller-remove] [#:controller-press] @
-       [#:controller-release] [#:controller-move] [#:error]
+       [#:controller-release] [#:controller-move] @
+       [#:window-keyboard-enter] [#:window-keyboard-leave] @
+       [#:window-mouse-enter] [#:window-mouse-leave] @
+       [#:window-show] [#:window-hide] @
+       [#:window-minimize] [#:window-maximize] @
+       [#:window-move] [#:window-resize] @
+       [#:error]
 
 Run the Chickadee game loop.
 
@@ -292,6 +298,71 @@ values are:
 @end enumerate
 
 @item
+@var{window-keyboard-enter}: Called with zero arguments when the
+window gains keyboard focus.
+
+@item
+@var{window-keyboard-leave}: Called with zero arguments when the
+window loses keyboard focus.
+
+@item
+@var{window-mouse-enter}: Called with zero arguments when the window
+gains mouse focus.
+
+@item
+@var{window-mouse-leave}: Called with zero arguments when the window
+loses mouse focus.
+
+@item
+@var{window-show}: Called with zero arguments when the window is
+shown after having been hidden.
+
+@item
+@var{window-hide}: Called with zero arguments when the window is
+hidden.
+
+@item
+@var{window-minimize}: Called with zero arguments when the window is
+minimized.
+
+@item
+@var{window-maximize}: Called with zero arguments when the window is
+maximized.
+
+@item
+@var{window-move}: Called with two arguments when the window is moved
+within the desktop environment.
+
+@enumerate
+
+@item
+@var{x}: The x coordinate of the top-left corner of the window, in
+pixels.
+
+@item
+@var{y}: The y coordinate of the top-left corner of the window, in
+pixels.
+
+@end enumerate
+
+Desktop environments use the top-left corner as the origin rather than
+the bottom-left like Chickadee does, hence the discrepancy here.
+
+@item
+@var{window-resize}: Called with zero arguments when the window is
+resized.
+
+@enumerate
+
+@item
+@var{width}: The new width in pixels.
+
+@item
+@var{height}: The new height in pixels.
+
+@end enumerate
+
+@item
 @var{error}: Called with two arguments when an error occurs:
 
 @enumerate