diff --git a/src/app.rs b/src/app.rs
index bce75e5..8bf7164 100644
--- a/src/app.rs
+++ b/src/app.rs
@@ -561,6 +561,12 @@ pub trait App: 'static
 	/// presented as soon as my VT becomes active".
 	fn on_first_frame_committed( &mut self ) {}
 
+	/// Called every time a buffer for the main surface has been rendered and
+	/// committed, before the subsurfaces are reconciled for the same
+	/// iteration. Lets a host retire or mount a subsurface in the same flush
+	/// as the main frame it replaces, so the swap lands in one frame.
+	fn on_main_frame_committed( &mut self ) {}
+
 	/// Called when the surface is asked to close (compositor request, titlebar button,
 	/// layer-shell closed event). Return `true` to allow the application to exit,
 	/// or `false` to cancel.
diff --git a/src/event_loop/frame.rs b/src/event_loop/frame.rs
index b2ac7cd..657be8e 100644
--- a/src/event_loop/frame.rs
+++ b/src/event_loop/frame.rs
@@ -75,6 +75,7 @@ pub( crate ) fn draw_frame<A: App>( data: &mut AppData<A> ) -> bool
 			data.first_frame_committed = true;
 			first_commit_now = true;
 		}
+		data.app.on_main_frame_committed();
 	}
 
 	for ( _, ss ) in data.secondaries.iter_mut()