Closed a few gaps in the APIs of Window derivatives

1 files changed, 12 insertions, 0 deletions

diff --git a/src/fltk-widgets-groups-windows-opengl.adb b/src/fltk-widgets-groups-windows-opengl.adb
index 190b5c1..1b8bea7 100644
--- a/src/fltk-widgets-groups-windows-opengl.adb
+++ b/src/fltk-widgets-groups-windows-opengl.adb
@@ -171,6 +171,11 @@ package body FLTK.Widgets.Groups.Windows.OpenGL is
     pragma Import (C, fl_gl_window_set_valid, "fl_gl_window_set_valid");
     pragma Inline (fl_gl_window_set_valid);
 
+    procedure fl_gl_window_invalidate
+           (S : in Storage.Integer_Address);
+    pragma Import (C, fl_gl_window_invalidate, "fl_gl_window_invalidate");
+    pragma Inline (fl_gl_window_invalidate);
+
     procedure fl_gl_window_make_current
            (S : in Storage.Integer_Address);
     pragma Import (C, fl_gl_window_make_current, "fl_gl_window_make_current");
@@ -481,6 +486,13 @@ package body FLTK.Widgets.Groups.Windows.OpenGL is
     end Set_Valid;
 
 
+    procedure Invalidate
+           (This : in out GL_Window) is
+    begin
+        fl_gl_window_invalidate (This.Void_Ptr);
+    end Invalidate;
+
+
     procedure Make_Current
            (This : in out GL_Window) is
     begin