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