# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484138450 0
# Node ID 5b9ad799c8cc694092cababd2441eeb0cb84cf60
# Parent  4f469e17e70c64fa63cdf991b66bf5ba764f89b0
Minor cleanup

diff -r 4f469e17e70c -r 5b9ad799c8cc src/gui/screen.lisp
--- a/src/gui/screen.lisp	Thu Jan 05 18:13:20 2017 +0000
+++ b/src/gui/screen.lisp	Wed Jan 11 12:40:50 2017 +0000
@@ -231,7 +231,7 @@
                 window
                 "Load ROM"
                 (uiop:native-namestring (asdf:system-source-directory :cl-chip8))
-                "ROM Files (*.rom)")))
+                "ROM Files (*.rom);;All Files (*)")))
     (if (string= path "")
       nil
       path)))
@@ -277,7 +277,7 @@
 
 (defun run-gui (chip thunk)
   (with-main-window
-    (window (setf *main-window* (make-main-window chip)))
+      (window (setf *main-window* (make-main-window chip)))
     (funcall thunk)))