+ (* script monospace font stuff *)
+ let font =
+ Helm_registry.get_opt_default Helm_registry.get
+ BuildTimeConf.default_script_font "matita.script_font"
+ in
+(* let monospace_tag =
+ self#main#scriptTextView#buffer#create_tag [`FONT_DESC font]
+ in *)
+ self#main#scriptTextView#misc#modify_font_by_name font;
+(* 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 *)