let ask_quit () = match GToolbox.question_box ~title: Cam_messages.quit ~buttons: [Cam_messages.yes ; Cam_messages.no] Cam_messages.really_quit with 1 -> GMain.Main.quit () | _ -> ()