expose quit in ui loop

[c-cube]

Nottui.Ui_loop.run could provide an easy way to combine the default behavior ("quit on escape") with custom behavior (like a quit button). For that I think it could take an optional bool Lwd.var instead of a bool Lwd.t, and add the escape behavior on top of that?