Add initial prototype.
This commit is contained in:
29
3-mid/opengl/source/platform/egl/opengl-display.ads
Normal file
29
3-mid/opengl/source/platform/egl/opengl-display.ads
Normal file
@@ -0,0 +1,29 @@
|
||||
private
|
||||
with
|
||||
eGL;
|
||||
|
||||
|
||||
package openGL.Display
|
||||
--
|
||||
-- Models an openGL display.
|
||||
--
|
||||
is
|
||||
|
||||
type Item is tagged private;
|
||||
|
||||
function Default return Item;
|
||||
|
||||
|
||||
|
||||
private
|
||||
|
||||
type Item is tagged
|
||||
record
|
||||
Thin : eGL.EGLDisplay;
|
||||
Version_major,
|
||||
Version_minor : aliased eGL.EGLint;
|
||||
end record;
|
||||
|
||||
end openGL.Display;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user