let in_new_window args =
  let com = Cam_commands.argv_to_string args in
  let w = create_window () in
  active_window := Some w;
  Cam_commands.eval_command com