diff --git a/WINGs/widgets.c b/WINGs/widgets.c
index 13bd4db..d06fa37 100644
--- a/WINGs/widgets.c
+++ b/WINGs/widgets.c
@@ -1172,6 +1172,16 @@ void WMRunModalLoop(WMScreen * scr, WMView * view)
 
 		WMNextEvent(scr, &event);
 		WMHandleEvent(&event);
+
+		/* Wayland: re-composite and commit after each event */
+		if (!scr->display) {
+			const W_ViewBackend *vb = scr->viewBackend;
+			W_View *top = view;
+			while (top->parent && !top->flags.topLevel)
+				top = top->parent;
+			vb->redisplay(scr->viewBackendCtx, top);
+			vb->map_subviews(scr->viewBackendCtx, top);
+		}
 	}
 
 	scr->modalView = oldModalView;