diff options
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 |