diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-05-25 01:10:29 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-25 01:10:29 +1000 |
commit | a3a475cc6a88e7fbd5d55cbca3dd517c0d34b260 (patch) | |
tree | 5274efd53486c3061741eb549e31aebf045e1129 /fltk-widget.ads | |
parent | ac5c51b6ee492b504e165408b742d2505e308e94 (diff) |
Buttons and accessors
Diffstat (limited to 'fltk-widget.ads')
-rw-r--r-- | fltk-widget.ads | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/fltk-widget.ads b/fltk-widget.ads index 1e56c4f..a8b2b27 100644 --- a/fltk-widget.ads +++ b/fltk-widget.ads @@ -1,14 +1,18 @@ with FLTK.Enums; use FLTK.Enums; -private with Ada.Finalization; +with Ada.Finalization; private with System; package FLTK.Widget is - type Widget_Type is abstract tagged limited private; + type Widget_Type is abstract new Ada.Finalization.Limited_Controlled with private; + + + type Font_Size is new Natural; + Normal_Size : constant Font_Size := 14; function Create @@ -37,6 +41,26 @@ package FLTK.Widget is F : in Font_Kind); + function Get_Label_Size + (W : in Widget_Type'Class) + return Font_Size; + + + procedure Set_Label_Size + (W : in Widget_Type'Class; + S : in Font_Size); + + + function Get_Label_Type + (W : in Widget_Type'Class) + return Label_Kind; + + + procedure Set_Label_Type + (W : in Widget_Type'Class; + L : in Label_Kind); + + private |