11 lines
200 B
Ada
11 lines
200 B
Ada
package body opengl.Surface.privvy
|
|
is
|
|
|
|
function to_eGL (Self : in Surface.item'Class) return egl.EGLSurface
|
|
is
|
|
begin
|
|
return Self.egl_Surface;
|
|
end to_eGL;
|
|
|
|
end opengl.Surface.privvy;
|