let
event ?pretend x =
Display
.event !-internal_display ?pretend x