From 453ab6184895f1386f939e47284ca0d1100805fc Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Sun, 14 Dec 2014 21:15:38 -0800 Subject: [PATCH] Preventing accidental closure. --- desktop/src-common/advent/screens/safe.clj | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/desktop/src-common/advent/screens/safe.clj b/desktop/src-common/advent/screens/safe.clj index 97cc8839..0f48dfd2 100644 --- a/desktop/src-common/advent/screens/safe.clj +++ b/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)))