From 9878e5b5278b5fcbfc58d07a275b32a990760d89 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 28 Jun 2014 16:23:19 -0400
Subject: Reset video mode when window is resized.

* 2d/window.scm: Reset SDL video mode when video-resize is triggered.
---
 sly/window.scm | 8 +++++---
 1 file 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
-- 
cgit v1.2.3