let multiclip_copy_selection _ args =
let text =
match GMain.selection#text with
None -> GMain.clipboard#text
| x -> x
in
match text with
None -> ()
| Some text ->
let com = Printf.sprintf "%s_copy" factory_name in
Cam_commands.launch_command com [| text |]