                #(swap! screen-state-atom
                        assoc :x 0 :y 0 :z 0 :zoom 1)))
 
-;(defn handle-open [window]
-;  (bind-window-keys window ["S"] create-dir-dialog))
+;; toggling split pane
 
 (defn redraw-frame [frame]
   (doto (.getContentPane frame)

    (.setLeftComponent left-panel)
    (.setRightComponent right-panel)
    restore-divider-location!)
  (redraw-frame frame))  

(defn toggle-1x-view [{:keys [split-pane] :as widgets}]
  (if (.getParent split-pane)


(defn handle-toggle-split [widgets]
  (bind-window-keys (:frame widgets) ["1"] #(toggle-1x-view widgets)))

;; main function enabling controls

(defn make-view-controllable [widgets screen-state-atom]
  (let [panel (:left-panel widgets)]
