]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matitaGui.ml
auto and autogui... some work
[helm.git] / matita / matitaGui.ml
index 30d6dbd2051e38db13a773ee825f5228cea9f41e..fe56652a776ad31455a2a23a9db881ce3a410e43 100644 (file)
@@ -1004,7 +1004,7 @@ class gui () =
         (tac_w_term (A.Transitivity (loc, hole)));
       connect_button tbar#assumptionButton (tac (A.Assumption loc));
       connect_button tbar#cutButton (tac_w_term (A.Cut (loc, None, hole)));
-      connect_button tbar#autoButton (tac (A.Auto (loc,[])));
+      connect_button tbar#autoButton (tac (A.AutoBatch (loc,[])));
       MatitaGtkMisc.toggle_widget_visibility
        ~widget:(main#tacticsButtonsHandlebox :> GObj.widget)
        ~check:main#tacticsBarMenuItem;