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)