summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-06-28 16:23:19 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-08-25 19:33:07 -0400
commit9878e5b5278b5fcbfc58d07a275b32a990760d89 (patch)
tree9751640944587afeb2a68d9405f23b08931239d5
parent99a370a92f8eb75023e957f64e17430db4c44159 (diff)
Reset video mode when window is resized.
* 2d/window.scm: Reset SDL video mode when video-resize is triggered.
-rw-r--r--sly/window.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/sly/window.scm b/sly/window.scm
index 934ef5f..aa3653a 100644
--- a/sly/window.scm
+++ b/sly/window.scm
@@ -63,9 +63,11 @@
(register-event-handler
'video-resize
(lambda (e)
- (run-hook window-resize-hook
- (SDL:event:resize:w e)
- (SDL:event:resize:h e))))
+ (let ((width (SDL:event:resize:w e))
+ (height (SDL:event:resize:h e)))
+ ;; Reset video mode.
+ (SDL:set-video-mode width height 24 '(opengl))
+ (run-hook window-resize-hook width height))))
(define-signal window-size
(hook->signal window-resize-hook