30 lines
361 B
Ada
30 lines
361 B
Ada
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;
|
|
|
|
|