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

  [^JFrame frame
   handlers]
  {:pre [(:ctrl-enter handlers)
         (:rollback handlers)
         (:closed handlers)]}
  (set-ctrl-enter-handler! frame (:ctrl-enter handlers))
  (set-on-rollback-handler! frame (:rollback handlers))
  (seesaw.core/listen frame :window-closed (fn [_] ((:closed handlers)))))

(defn get-contents!

    (assert (not= btn-execute nil))
    (seesaw.core/listen btn-execute :action (fn [_] (handler)))))

(defn set-on-new-handler
  "Set New button handler."
  [frame handler]
