Started constructing Find/Replace/About windows

1 files changed, 9 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk-widgets.ads b/src/fltk_binding/fltk-widgets.ads
index 0a123bf..c0f89c1 100644
--- a/src/fltk_binding/fltk-widgets.ads
+++ b/src/fltk_binding/fltk-widgets.ads
@@ -96,6 +96,15 @@ package FLTK.Widgets is
             Func : not null access Widget_Callback'Class);
 
 
+    function Get_X (This : in Widget) return Integer;
+    function Get_Y (This : in Widget) return Integer;
+    function Get_W (This : in Widget) return Integer;
+    function Get_H (This : in Widget) return Integer;
+
+
+    procedure Resize (This : in out Widget; W, H : in Integer);
+    procedure Reposition (This : in out Widget; X, Y : in Integer);
+
 private