Release 0.5.9.

[helm.git] / helm / software / matita / matitaGui.ml

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index d04fbcadab4b8bcace82958733d197b007742cc4..9459c86ca5e5664c023aaa5107fac41e413aae36 100644 (file)
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -889,9 +889,7 @@ class gui () =
       let _ =
         let source_language_manager =
          GSourceView2.source_language_manager ~default:true in
-        source_language_manager#set_search_path
-         (BuildTimeConf.runtime_base_dir ::
-           source_language_manager#search_path);
+        source_language_manager#set_search_path[BuildTimeConf.runtime_base_dir];
         match source_language_manager#language "grafite" with
         | None ->
             HLog.warn(sprintf "can't load a language file for \"grafite\" in %s"
@@ -1032,11 +1030,8 @@ class gui () =
         (* focus *)
       self#sourceView#misc#grab_focus ();
         (* main win dimension *)
-      let width = Gdk.Screen.width ~screen:(Gdk.Screen.default ()) () in
-      let height = Gdk.Screen.height ~screen:(Gdk.Screen.default ()) () in
-      (* hack for xinerama, no proper support of monitors from lablgtk *)
-      let width = if width > 1600 then width / 2 else width in
-      let height = if height > 1200 then height / 2 else height in
+      let width = Gdk.Screen.width () in
+      let height = Gdk.Screen.height () in
       let main_w = width * 90 / 100 in 
       let main_h = height * 80 / 100 in
       let script_w = main_w * 6 / 10 in
@@ -1132,11 +1127,12 @@ class gui () =
        let inplaceof, symb = Virtuals.symbol_of_virtual last_word in
        self#reset_similarsymbols;
        let s = Glib.Utf8.from_unichar symb in
+       let iter = source_buffer#get_iter_at_mark `INSERT in
        assert(Glib.Utf8.validate s);
        source_buffer#delete ~start:iter 
          ~stop:(iter#copy#backward_chars
            (MatitaGtkMisc.utf8_string_length inplaceof + len));
-       source_buffer#insert ~iter
+       source_buffer#insert ~iter:(source_buffer#get_iter_at_mark `INSERT) 
          (if inplaceof.[0] = '\\' then s else (s ^ tok));
        true
       with Virtuals.Not_a_virtual -> false