     :author "Frank Mosebach"}
   (:require 
     [fm.simrunner.gui.core :as gui])  
-  (:import 
+  (:import
+    (java.io File)
     (java.awt Insets
               Dimension
               BorderLayout

    (filter (comp input-ids :id meta)
            (widget-seq view))))

(defmulti set-value {:private true} (fn [input _] (type input)))

(defmethod set-value :text-input [input value]
  (-> input
      :widget
      (.setText (str value))))

(defmethod set-value :default [input value]
  (println (format "set-value{%s value: %s}" (type input) value)))

        (.add (:widget view)))
    (assoc frame :contents {:simrunner-view view})))

(defn- widget-seq [widget]
  (lazy-seq
    (cons widget
      (when-let [contents (vals (:contents widget))]
