                          :tip "Reduce both objects and attributes of the context",
                          :f (cc-1 reduce-context)})
         (add-button-box {:name (get-image-icon-or-string "context-editor/transitive-closure.png"
-                               "trans"),
+                                                         "trans"),
                          :tip "Apply transitive closure to the context",
                          :f (cc-1 context-transitive-closure)}
                         {:spacer 3}

      (doto toolbar
        (set-floatable false)
        (add-button-box  { :name (get-image-icon-or-string "context-editor/copy.png" "C"),
                           :tip  "Copy the selected cells to clipboard",
                           :no-return #(copy-to-clipboard (get-table %)) }
                         { :name (get-image-icon-or-string "context-editor/cut.png" "X"),
                           :tip  "Cut the selected cells to clipboard",
                           :no-return #(cut-to-clipboard (get-table %)) }
                         { :name (get-image-icon-or-string "context-editor/paste.png" "P"),
                           :tip  "Paste the clipboard to the selected cell and its down-right neighbors",
                           :no-return #(paste-from-clipboard (get-table %)) }
                         { :name (get-image-icon-or-string "context-editor/second-op.png" "M+"),
                           :tip  "Use a copy of this context as second operand",
                           :no-return #(reset! second-operand (get-context (get-ectx %))) }
                        )
        (add-button-box {:name (get-image-icon-or-string "context-editor/add-attribute.png" "+A"),
                         :tip "Adds a new attribute column to the context",
                         :f add-new-attribute}

                         :tip "Remove all selected rows and columns from the context",
                         :f cut-objects-attributes})
        (add-button-box {:name (get-image-icon-or-string "context-editor/clarify-attribute.png"
                                                         "cA"),
                         :tip "Clarify the attribute columns of the context",
                         :f (cc-1 clarify-attributes)}
                        {:name (get-image-icon-or-string "context-editor/clarify-object.png" "cO"),
