let default_commands = [ com Cam_constant.com_quit (fun args -> ask_quit ()) ; com Cam_constant.com_about_box (fun args -> about_box ()); ]