let syntax_highlight_box param =
let hb = GPack.hbox () in
let lang = language_manager#guess_language
~content_type: param#sourceview_language () in
match lang with
None ->
ignore(GMisc.label
~text: (Printf.sprintf "Syntax highlight for %s not available." param#sourceview_language)
~packing: hb#pack ())
;
(Configwin.custom hb (fun () -> ()) false, fun () -> ())
| Some lang ->
let style_box = new Gtksv_utils.source_style_scheme_box () in
hb#pack ~expand: true ~fill: true style_box#box;
(Configwin.custom hb
(fun () -> Gtksv_utils.store_style_scheme_selection style_box#scheme) true,
(fun () -> Gtksv_utils.apply_source_style_scheme_to_registered_buffers
(Gtksv_utils.source_style_scheme()))
)