Added Redraw and Redraw_Label procedures to Widgets

1 files changed, 25 insertions, 0 deletions

diff --git a/src/fltk-widgets.adb b/src/fltk-widgets.adb
index 8d6bec2..deb0213 100644
--- a/src/fltk-widgets.adb
+++ b/src/fltk-widgets.adb
@@ -204,6 +204,17 @@ package body FLTK.Widgets is
 
 
 
+    procedure fl_widget_redraw
+           (W : in System.Address);
+    pragma Import (C, fl_widget_redraw, "fl_widget_redraw");
+
+    procedure fl_widget_redraw_label
+           (W : in System.Address);
+    pragma Import (C, fl_widget_redraw_label, "fl_widget_redraw_label");
+
+
+
+
     procedure Callback_Hook
            (W, U : in System.Address)
     is
@@ -551,6 +562,20 @@ package body FLTK.Widgets is
 
 
 
+    procedure Redraw
+           (This : in out Widget) is
+    begin
+        fl_widget_redraw (This.Void_Ptr);
+    end Redraw;
+
+
+    procedure Redraw_Label
+           (This : in out Widget) is
+    begin
+        fl_widget_redraw_label (This.Void_Ptr);
+    end Redraw_Label;
+
+
     function Handle
            (This  : in out Widget;
             Event : in     Event_Kind)