                          :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"),
+                                                         "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"),

                         :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"),
                         :tip "Apply transitive closure to the context",
                         :f (cc-1 context-transitive-closure)}
                        {:spacer 3}

                         :f (cc-1 clarify-context)}
                        {:spacer 3}
                        {:name (get-image-icon-or-string "context-editor/reduce-attribute.png"
                                                         "rA"),
                         :tip "Reduce the attribute columns of the context",
                         :f (cc-1 reduce-attributes)}
                        {:name (get-image-icon-or-string "context-editor/reduce-object.png" "rO"),
