From 88e5c98995d1b330abe2982b27c472d4ae52fad6 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 30 Jul 2017 01:15:48 +1000
Subject: Added Redraw and Redraw_Label procedures to Widgets

---
 src/fltk-widgets.adb | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'src/fltk-widgets.adb')

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)
-- 
cgit