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 |]