   (defn- context-cell-renderer-hook
     "Returns the component given as first parameter, optionally changes 
      attributes of it depending on the cell"
-    [table component view-row view-col is-selected has-focus value]
+    [^JTable table, ^JComponent component, view-row view-col is-selected has-focus value]
     (let [row (get-row-index table view-row),
           col (get-column-index table view-col) ]
       (cond

  (assert (instance? context-editor-widget widget))
  (let [table (get-table widget),
        view  (get-column-index-permutator table),
        sel   (seq (.getSelectedColumns (get-control table))),
        ectx  (get-ectx widget),
        names (deref (:attr-cols ectx)),
        fltr  #(filter (fn [x]


(defn- string-to-cross
  "Takes a string and decides, whether it should be a cross or not."
  [^String s]
  (boolean (re-matches #"0*[,.]?0*" (.trim s))))

(defn- ectx-cell-value-hook
  [ectx row column contents]
