From e7e0f6fc099569339434b998e38035f387845655 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 10 Nov 2023 19:03:00 +1100 Subject: [PATCH] opengl.renderer.lean: Set 'no_context_Clearer' as the default context clearer. --- 3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads index a78f6de..f98a214 100644 --- a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads +++ b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads @@ -140,6 +140,8 @@ private max_Geometries : constant := max_Visuals * 6; + procedure no_context_Clearer is null; + ---------- -- Updates @@ -309,7 +311,7 @@ private Context : openGL.Context.view; context_Setter : lean.context_Setter; - context_Clearer : lean.context_Clearer; + context_Clearer : lean.context_Clearer := no_context_Clearer'Access; Swapper : lean.Swapper; swap_Required : Boolean; is_Busy : Boolean := False;