summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/c_fl_widget.cpp11
-rw-r--r--src/c_fl_widget.h4
-rw-r--r--src/fltk-widgets.adb25
-rw-r--r--src/fltk-widgets.ads6
4 files changed, 46 insertions, 0 deletions
diff --git a/src/c_fl_widget.cpp b/src/c_fl_widget.cpp
index 832d7fe..923b509 100644
--- a/src/c_fl_widget.cpp
+++ b/src/c_fl_widget.cpp
@@ -194,3 +194,14 @@ void fl_widget_set_image(WIDGET w, void * img) {
reinterpret_cast<Fl_Widget*>(w)->image(reinterpret_cast<Fl_Image*>(img));
}
+
+
+
+void fl_widget_redraw(WIDGET w) {
+ reinterpret_cast<Fl_Widget*>(w)->redraw();
+}
+
+void fl_widget_redraw_label(WIDGET w) {
+ reinterpret_cast<Fl_Widget*>(w)->redraw_label();
+}
+
diff --git a/src/c_fl_widget.h b/src/c_fl_widget.h
index 26f0ebe..7bf5d71 100644
--- a/src/c_fl_widget.h
+++ b/src/c_fl_widget.h
@@ -68,5 +68,9 @@ extern "C" void fl_widget_position(WIDGET w, int x, int y);
extern "C" void fl_widget_set_image(WIDGET w, void * img);
+extern "C" void fl_widget_redraw(WIDGET w);
+extern "C" void fl_widget_redraw_label(WIDGET w);
+
+
#endif
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)
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)