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 () -> ()) falsefun () -> ())
  | 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()))
      )