 
 (defn- string-to-cross
   "Takes a string and decides, whether it should be a cross or not."
-  [s]
-  (let [trimmed (.trim s)]
-    (if (re-matches #"0*[,.]?0*" trimmed)
-      false
-      true)))
+  [^String s]
+  (boolean (re-matches #"0*[,.]?0*" (.trim s))))
 
 (defn- ectx-cell-value-hook
   [ectx row column contents]

  (assert (instance? context-editor-widget widget))
  (let [table (get-table widget),
        view  (get-row-index-permutator table),
        sel   (seq (.getSelectedRows (get-control table))),
        ectx  (get-ectx widget),
        names (deref (:obj-rows ectx)),
        fltr  #(filter (fn [x]

          (.setForeground selected-foreground)
          (.setBackground selected-background)))
      (if (instance? JLabel component)
        (.setHorizontalAlignment ^JLabel component SwingConstants/CENTER))
      component)))
            

