commit 8cf7370a18e08e02f667ccac622612d342b0b2da
Author: Romain Beauxis <toots@rastageeks.org>
Date:   Tue Apr 1 22:36:30 2025 -0500

    Fix src/core/outputs/graphics_out.ml

diff --git a/src/core/outputs/graphics_out.ml b/src/core/outputs/graphics_out.ml
index be112afb4..476c4a307 100644
--- a/src/core/outputs/graphics_out.ml
+++ b/src/core/outputs/graphics_out.ml
@@ -21,12 +21,14 @@
 
 open Mm
 
-class output ~infallible ~register_telnet ~autostart ~on_start ~on_stop source =
+class output ~infallible ~register_telnet ~autostart ~on_start ~on_stop
+  source_val =
+  let source = Lang.to_source source_val in
   object (self)
     inherit
       Output.output
         ~name:"graphics" ~output_kind:"output.graphics" ~infallible
-          ~register_telnet ~on_start ~on_stop source autostart
+          ~register_telnet ~on_start ~on_stop source_val autostart
 
     val mutable sleep = false
     method stop = sleep <- true
@@ -38,6 +40,8 @@ class output ~infallible ~register_telnet ~autostart ~on_start ~on_stop source =
       Graphics.resize_window width height;
       sleep <- false
 
+    method self_sync = source#self_sync
+
     method send_frame buf =
       match (VFrame.data buf).Content.Video.data with
         | [] -> ()