   Parameters:
     obj     _a table widget" [obj] 
   (let [control (get-control obj)
-         sel-columns ((*comp (rho .getSelectedColumns) extract-array)
+         sel-columns ((*comp (rho .getSelectedColumns)  extract-array)
                        control)
          sel-rows ((*comp (rho .getSelectedRows) extract-array)
-                    control)]
+                    control)
+         col-index (!! obj :get-column-index-permutator)
+         row-index (!! obj :get-row-index-permutator)]
     (if (or (empty? sel-columns) (empty? sel-rows)) nil
       (let [data (str (get-clipboard-contents))
              startx (first sel-columns)

   with the widget as first parameter and the given additional parameters"
  [map key & parameters]
  `(((~map :handler) ~key) ~map ~@parameters))


;;;

    column    _viewport column
  Returns the model index"
           [column]
           (let [ col-count (.getColumnCount table) ]
             (if (>= column col-count) column
               (let [ col-model (.getColumnModel table)
                      table-col (.getColumn col-model column)]
                 (.getModelIndex table-col)))))
         
         :get-index-column
         (fn-swing-doc "Returns the column in the view that corresponds
