let on_active_window_args (f : gui_window -> string array -> unit) args =
  (match !active_window with
    None ->
       fun _ ->
         Cam_hooks.warning_message "no active window.";
  | Some o -> f o
  ) args