Preventing accidental closure.

desktop/src-common/advent/screens/safe.clj

@@ -98,7 +98,11 @@
                                          (close entities))
                                      :else
                                      new-state)))
-                         (close entities)))))
+                         (if (or (< x start-x)
+                                 (> x (+ start-x 200))
+                                 (< y start-y)
+                                 (> y (+ start-y 75)))
+                           (close entities))))))
 
   :on-resize (fn [screen entities]
                (size! screen 320 240)))