Spinner Example

[dsbw]

I made a spinner example, which might be helpful.

(ns ezclj.utils.spinner
  (:require [cljfx.api :as fx]
            [clojure.core.cache :as cache]))

(def ctx
  (atom (fx/create-context
          {}
          cache/lru-cache-factory)))

(defn view [{:keys [fx/context]}]
  {:fx/type :stage
   :showing true
   :scene   {:fx/type :scene
             :root    {:fx/type    fx/ext-on-instance-lifecycle
                       :desc       {:fx/type :spinner
                                    :value-factory {:fx/type :integer-spinner-value-factory
                                           :amount-to-step-by 1
                                           :min 2000
                                           :max 2050
                                           :value 2022}
                                    }}}})

(def renderer
  (fx/create-renderer
    :middleware (comp fx/wrap-context-desc (fx/wrap-map-desc (fn [_] {:fx/type view})))))

(fx/mount-renderer ctx renderer)

I was not able to figure out how to get a text-formatter in there. If the spinner is editable, the user can type in letters (and this causes an NumberFormatException in this example when the window is closed. (This surprised me, I don't know where the conversion is attempted.)