         to-remove (seesaw.core/select frame [:#results-panel :> :*])]
     (doall (map (partial seesaw.core/remove! results-panel) to-remove))))
 
-
 (defn choose-save-file
   "Show save dialog, return absolute path as string."
   [frame]
   (-> (^File seesaw.chooser/choose-file frame :type :save)
       (.getAbsolutePath)))
 
-
 (defn show-explain-plan!
   "Show explain plan."
   [^JFrame frame

  [frame]
  (seesaw.core/dispose! frame))

(defn set-on-windows-closed-handler
  [^JFrame frame
   handler]
  (assert (ifn? handler))
  (seesaw.core/listen frame :window-closed (fn [_] (handler))))

; (defn set-on-explain-handler
;   [frame handler]
;   (assert (not= frame nil))
;   (let [btn-explain (seesaw.core/select frame [:#explain])]
;     (assert (not= btn-explain nil))
;     (seesaw.core/listen btn-explain :action (fn [e] (handler)))))

(defn set-on-execute-handler
  "Set Execute button handler."
  [frame handler]

    ;     (seesaw.core/listen
    ;       btn-print-ui-tree :action
    ;       (fn [_] (ui-dev/print-ui-tree worksheet-frame)))))
    (setup-font-size-keys! worksheet-frame)
    (reify WorksheetWindow
      (show-worksheet-window! [_] (do
                                    (seesaw.core/show! worksheet-frame)
