From 88e5c98995d1b330abe2982b27c472d4ae52fad6 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 30 Jul 2017 01:15:48 +1000 Subject: Added Redraw and Redraw_Label procedures to Widgets --- src/fltk-widgets.ads | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/fltk-widgets.ads') diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 895ffc3..5205106 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -181,6 +181,12 @@ package FLTK.Widgets is procedure Draw (This : in out Widget) is null; + procedure Redraw + (This : in out Widget); + + procedure Redraw_Label + (This : in out Widget); + function Handle (This : in out Widget; Event : in Event_Kind) -- cgit