Add initial prototype.

This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions

View File

@@ -0,0 +1,25 @@
with
interfaces.C.Strings;
package body openGL.Display
is
function Default return Item
is
Self : Display.item;
begin
return Self;
end Default;
function screen_Id (Self : in Item) return interfaces.c.int
is
begin
return Self.screen_Id;
end screen_Id;
end openGL.Display;