         conexp.contrib.gui.editors.context-editor.table-control
         conexp.contrib.gui.editors.context-editor.editable-contexts
         conexp.contrib.gui.editors.context-editor.context-editor-control)
-  (:import [javax.swing JRootPane KeyStroke Box JFrame]
+  (:import [javax.swing JRootPane KeyStroke Box JFrame JTable JComponent]
            [java.awt BorderLayout]
            [java.awt.event KeyEvent ActionEvent])
   (:import conexp.contrib.gui.editors.context_editor.context_editor_control.context-editor-widget))

  "Fills the selected cells from the table widget with 'X's"
  [obj]
  (assert (keyword-isa? obj conexp.contrib.gui.editors.context_editor.table_control.table-control))
  (let [control     (get-control obj),
        sel-columns (-> control .getSelectedColumns seq),
        sel-rows    (-> control .getSelectedRows seq),
        sel-pairs   (map (fn [y]

                                                     (set-context @ectx ((:f button) widget))))]
                                   (set-handler bctrl handler)
                                   ;;(add-button toolbar bctrl)))
                                   (.add box ^JComponent (get-widget bctrl)))))
                             (.add ^JComponent (get-control toolbar) box)))]
      (register-keyboard-action table fill-selection-with-X "Fill-X" keystroke-fill :focus)
      (add-widget e-ctx widget)
      (doto toolbar
