     (.loop s-set-value (.snapshot s-delta value (apply2 [delta value]
                                                         (println (str delta ":" value))
                                                         (+ delta value))))
-    {:jpanel spinner :cell value}))
+    {:jcomp spinner :jpanel spinner :cell value}))
 
 (defn spinme
   []

                                                    (println "dispatch else")
                                                    (SwingUtilities/invokeLater (fn []
                                                                                (.setEnabled s-text-field ena)))))))))
     {:jtext s-text-field :cell text :stream s-user-changes :dl dl})))
  
(defn label
  []


(defn s-text-field
  ([init-text] (s-text-field (Stream.) init-text 15))
  ([string-or-stream string-or-width]
     (if (string? string-or-stream)
       (s-text-field (Stream.) string-or-stream string-or-width (Cell. true))
       (s-text-field string-or-stream string-or-width 15 (Cell. true))))
  ([string-or-stream string-or-width cell-or-width]
     (if (string? string-or-stream)
       (s-text-field (Stream.) string-or-stream string-or-width cell-or-width)
       (s-text-field string-or-stream string-or-width cell-or-width (Cell. true))))
  ;(s-text-field s-text init-text width (Cell. true)))
  ([^Stream s-text ^String init-text ^long width ^Cell enabled]
   (let [s-decrement (StreamSink.)
         allow (.map
