X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaGui.ml;h=3cc3b2547a4bf76d63e6d3acb14d96597e3cf0eb;hb=fd6a295e279aa5cc6b8eda610e25f3fbdb2f8d43;hp=9459c86ca5e5664c023aaa5107fac41e413aae36;hpb=732ffd3b5cb77cbacb60b95c1d52d3b63bd56c3b;p=helm.git

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index 9459c86ca..3cc3b2547 100644
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -889,7 +889,9 @@ 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#set_search_path
+         (BuildTimeConf.runtime_base_dir ::
+           source_language_manager#search_path);
         match source_language_manager#language "grafite" with
         | None ->
             HLog.warn(sprintf "can't load a language file for \"grafite\" in %s"
@@ -1030,8 +1032,11 @@ class gui () =
         (* focus *)
       self#sourceView#misc#grab_focus ();
         (* main win dimension *)
-      let width = Gdk.Screen.width () in
-      let height = Gdk.Screen.height () in
+      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 main_w = width * 90 / 100 in 
       let main_h = height * 80 / 100 in
       let script_w = main_w * 6 / 10 in