Обнаружение закрытия окна OCaml Graphics

Question

Я не нашел подробностей об обнаружении закрытия окна в документации Графика. Как обнаружить это, чтобы я мог вызвать действие при закрытии?

спасибо.

Answer 1

Используя простую тестовую программу (включенную в конце этого ответа) и закрытия окна вручную говорит нам, что следующее исключение сгенерировано:

Fatal error: exception Graphics.Graphic_failure("fatal I/O error") 

Это означает, что мы можем обрабатывать окно закрывается с помощью с помощью обработчика исключений:

try 
    (* Here goes the code opening and manipulating the window *) 
with 
    | Graphic_failure("fatal I/O error") -> 
    (* Here goes the code handling the window being closed manually*) 

Тестовая программа (вам нужно запустить ocamlc graphics.cma test.ml -o test для компиляции):

open Graphics 

let rec loop() = loop() 
let() = 
(* 
    try 
*) 
    Graphics.open_graph " 400x600"; 
    loop() 
(* 
    with 
    | Graphic_failure("fatal I/O error") -> 
     print_string "Caught exception"; 
     print_newline() 
*)