From efb994e7e8234cbb80ab9ef85908539b7ea6f31c Mon Sep 17 00:00:00 2001
From: Philip McGrath <philip@philipmcgrath.com>
Date: Tue, 27 Dec 2016 19:19:57 -0600
Subject: [PATCH] make-gui shouldn't ignore its #:width and #:height args

---
 chaos/gui.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/chaos/gui.rkt b/chaos/gui.rkt
index 73bbcbc..a2ac323 100644
--- a/chaos/gui.rkt
+++ b/chaos/gui.rkt
@@ -30,8 +30,8 @@
                   #:start-fullscreen? [start-fullscreen? #f]
                   #:icon [icon #f]
                   #:frame-style [frame-style '()]
-                  #:width [the-init-w #f]
-                  #:height [the-init-h #f])
+                  #:width [the-init-w 800]
+                  #:height [the-init-h 600])
   (define-values (start-x start-y init-w init-h)
     (cond
       [start-fullscreen?
@@ -39,7 +39,7 @@
        (define-values (w h) (get-display-size #t))
        (values (* -1 x) (* -1 y) w h)]
       [else
-       (values #f #f 800 600)]))
+       (values #f #f the-init-w the-init-h)]))
 
   ;; xxx start-x/y isn't working