14 lines
262 B
Ada
14 lines
262 B
Ada
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;
|