   (assert (keyword-isa? otable-control table-control))
   (let [p (get-row-index-permutator otable-control)]
     (set-row-index-permutator otable-control identity)
-    (.setRowCount (:model otable-control) row-count)
+    (.setRowCount ^DefaultTableModel (:model otable-control) row-count)
     (set-row-index-permutator otable-control p)))
 
 (defn-swing register-keyboard-action

  table model index."
  [otable index]
  (assert (keyword-isa? otable table-control))
  (let [table     (get-control otable),
        col-model (.getColumnModel table),
        cols      (range (.getColumnCount col-model)),
        matching  (filter #(= index

  of :none, :rows, :columns or :cells"
  [otable mode]
  (assert (keyword-isa? otable table-control))
  (let [^JTable table (get-control otable)]
    (condp = mode
     :none    (.setCellSelectionEnabled table false)
     :rows    (doto table
