Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/3-mid/opengl/source/platform/osmesa/private/opengl-surface-privvy.adb
+++ b/3-mid/opengl/source/platform/osmesa/private/opengl-surface-privvy.adb
@@ -0,0 +1,13 @@
+package body openGL.Surface.privvy
+is
+
+--     function to_glx (Self : in Surface.item'Class) return glx.GLXDrawable
+--     is
+--     begin
+--        return Self.glx_Surface;
+--     end to_glx;
+
+   procedure dummy is begin null; end;
+
+
+end openGL.Surface.privvy;