method display_stx_mode =
      let lang =
        match file#buffer#language with
          None -> "[no highlight]"
        | Some lang -> Printf.sprintf "[%s]" lang#get_name
      in
      wl_stx_mode#set_text (Ed_misc.to_utf8 lang)