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