let set_wrap_mode (view : sourceview) args =
let com = Printf.sprintf "%s_set_wrap_mode" factory_name in
if Array.length args < 1 then
let f s = Cam_commands.launch_command com [| s |] in
Ed_misc.select_string view#minibuffer ~title: com
~choices: (List.map Ed_sourceview_rc.string_of_wrap_mode [`CHAR;`NONE;`WORD])
"" f
else
let mode = Ed_sourceview_rc.wrap_mode_of_string args.(0) in
view#set_wrap_mode mode