X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaGui.ml;h=b230adecc50f41ae68cb8c22c3facd47b25ac30d;hb=fe39d8e524aef8839f21be44fe1f3af53379e458;hp=1f170cb912592b955a85a1294fcb2632f7571be1;hpb=1fe6285e012b840bd335eb49e0359d0411029c81;p=helm.git

diff --git a/matita/matitaGui.ml b/matita/matitaGui.ml
index 1f170cb91..b230adecc 100644
--- a/matita/matitaGui.ml
+++ b/matita/matitaGui.ml
@@ -612,7 +612,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,None,None,None,None)));
+      connect_button tbar#autoButton (tac (A.Auto (loc,[])));
       MatitaGtkMisc.toggle_widget_visibility
        ~widget:(main#tacticsButtonsHandlebox :> GObj.widget)
        ~check:main#tacticsBarMenuItem;
@@ -903,7 +903,7 @@ class gui () =
         source_buffer#insert ~iter:(source_buffer#get_iter_at_mark `INSERT) s
       in
       let get_ligature word =
-        let len = MatitaGtkMisc.utf8_string_length word in
+        let len = String.length word in
         let aux_tex () =
           try
             for i = len - 1 downto 0 do