summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee.scm69
-rw-r--r--doc/api.texi73
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