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