diff options
Diffstat (limited to 'src/fltk-widgets-groups-windows-opengl.ads')
| -rw-r--r-- | src/fltk-widgets-groups-windows-opengl.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/fltk-widgets-groups-windows-opengl.ads b/src/fltk-widgets-groups-windows-opengl.ads index 32603e0..9a60f03 100644 --- a/src/fltk-widgets-groups-windows-opengl.ads +++ b/src/fltk-widgets-groups-windows-opengl.ads @@ -198,6 +198,12 @@ private overriding procedure Finalize (This : in out GL_Window); + procedure Extra_Init + (This : in out GL_Window; + X, Y, W, H : in Integer; + Text : in String) + with Inline; + for Mode_Mask use record Index at 0 range 0 .. 0; @@ -223,18 +229,15 @@ private pragma Inline (Hide_Overlay); pragma Inline (Flush); - pragma Inline (Pixel_H); pragma Inline (Pixel_W); pragma Inline (Pixels_Per_Unit); - pragma Inline (Get_Mode); pragma Inline (Set_Mode); pragma Inline (Can_Do); pragma Inline (Can_Do_Overlay); - pragma Inline (Get_Context); pragma Inline (Set_Context); pragma Inline (Get_Context_Valid); @@ -244,7 +247,6 @@ private pragma Inline (Make_Current); pragma Inline (Make_Overlay_Current); - pragma Inline (Ortho); pragma Inline (Redraw_Overlay); pragma Inline (Swap_Buffers); |