                     where each node is represented by a list that has
                     the node's name as first element and all its child
                     trees as rest, where each child is again represented by
-                    its respective root node")
-
-(defmethod 
-  set-tree ::tree-control 
+                    its respective root node"
   [otree-control tree]
   (let [ t (conj (rest tree) :root)
          treeroot (:root otree-control)

    conexp.contrib.gui.util
    conexp.util
    conexp.util.hookable
    conexp.util.multimethods
    [clojure.contrib.string :only (join split-lines split)]
    [clojure.set :only (union)]))

             table-col (.getColumn col-model column) ]
        (.getModelIndex table-col)))))

(defn-typecheck-swing get-index-column ::table-control
 "Returns the column in the view that corresponds to the specified
  table model index.

  Parameters:
    otable    _table-control object
    index     _table model index"
  [otable index]
  (let [ table (get-control otable)
         col-model (.getColumnModel table)
