diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
commit | 87063e50bfb3dd69d0806897d5b0d97b7d48f92a (patch) | |
tree | 100df0819fbf577dbb4164c7fe77e793551b0a4b /src/fltk_binding/fltk-widgets.ads | |
parent | 2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 (diff) |
Removed superfluous use clauses, styling now more standardised
Diffstat (limited to 'src/fltk_binding/fltk-widgets.ads')
-rw-r--r-- | src/fltk_binding/fltk-widgets.ads | 32 |
1 files changed, 26 insertions, 6 deletions
diff --git a/src/fltk_binding/fltk-widgets.ads b/src/fltk_binding/fltk-widgets.ads index e692a65..7af5e2b 100644 --- a/src/fltk_binding/fltk-widgets.ads +++ b/src/fltk_binding/fltk-widgets.ads @@ -90,14 +90,34 @@ 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; + function Get_X + (This : in Widget) + return Integer; + + + function Get_Y + (This : in Widget) + return Integer; + + + function Get_W + (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); + 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); function Get_Image |