fixed width fonts

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

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index f6cdff77d86b6798b6403b3155f19e1dd9fff811..4c53c5abcedf8aee75987435c0520ce1fb800f98 100644 (file)
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -225,6 +225,17 @@ class gui () =
            let buf = self#main#scriptTextView#buffer in
            buf#insert ~iter:(buf#get_iter_at_mark `INSERT) "\n";
            advance ());
+         (* script monospace font stuff *)  
+      let font = Pango.Font.from_string "Monospace 10" in
+      let monospace_tag = 
+        self#main#scriptTextView#buffer#create_tag [`FONT_DESC font] 
+      in
+      let _ = 
+        self#main#scriptTextView#buffer#connect#changed ~callback:(fun _ ->
+          let start, stop = self#main#scriptTextView#buffer#bounds in
+          self#main#scriptTextView#buffer#apply_tag monospace_tag start stop)
+      in
+      
         (* debug menu *)
       self#main#debugMenu#misc#hide ();
         (* status bar *)