From f5f77c762534ed15adc557009d1a645e5fd998a5 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 16 Nov 2024 10:30:34 +1300 Subject: Reworked widget init/create subprograms --- src/fltk-widgets-groups-windows-opengl.ads | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-groups-windows-opengl.ads') 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); -- cgit