hg.stevelosh.com > cl-chip8

5b9ad799c8cc 

Minor cleanup
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 11 Jan 2017 12:40:50 +0000
parents 4f469e17e70c
children 79244f5d74e9
branches/tags (none)
files src/gui/screen.lisp

Changes

--- 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)))