let
quit_cb () =
GMain
.
Main
.quit ()