lace_opengl_0.1.0_672a6415/source/platform/osmesa/opengl-display.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
with
     Interfaces.C;


package openGL.Display
--
--  Models an openGL display.
--
is

   type Item is tagged private;


   function Default                    return Item;
   function screen_Id (Self : in Item) return interfaces.C.int;



private

   use Interfaces;

   type Item is tagged
      record
         screen_Id  : aliased interfaces.C.int;
      end record;

end openGL.Display;