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