From f372ad18e2ba1fe0660cfd93e64c17162a52a5f7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 21 Sep 2016 17:20:32 +1000 Subject: Started constructing Find/Replace/About windows --- fltk-widgets.ads | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'fltk-widgets.ads') diff --git a/fltk-widgets.ads b/fltk-widgets.ads index 0a123bf..c0f89c1 100644 --- a/fltk-widgets.ads +++ b/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 -- cgit