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

  (:require [sodium.core :refer :all])
  (:require [clojure.string :as s])
  (:import [nz.sodium Cell  CellLoop Listener Stream StreamLoop StreamSink Operational Transaction Unit])
  (:import [javax.swing JButton JFrame JLabel JPanel JTextField SwingUtilities])
  (:import [java.awt FlowLayout GridBagLayout GridBagConstraints])
  (:import [java.awt.event ActionListener])
  (:import [javax.swing.event DocumentEvent DocumentListener]))

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

(defn spinme
  []
