diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 18:49:32 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 18:49:32 +1300 |
| commit | 75a8e0e68e4980647a6d588a15bb300d132b6650 (patch) | |
| tree | a728a05b9a4db547ad0886bb6975f8e0729c919c /src/fltk-tooltips.ads | |
| parent | 8b01c23e0ba1fd22e0bfc797d6ca540c79079674 (diff) | |
Fixed several preprocessor ABI version issues
Diffstat (limited to 'src/fltk-tooltips.ads')
| -rw-r--r-- | src/fltk-tooltips.ads | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/src/fltk-tooltips.ads b/src/fltk-tooltips.ads index 6b7642c..4162358 100644 --- a/src/fltk-tooltips.ads +++ b/src/fltk-tooltips.ads @@ -22,7 +22,9 @@ package FLTK.Tooltips is return Boolean; procedure Set_Enabled - (To : in Boolean); + (To : in Boolean := True); + + procedure Disable; procedure Enter_Area (Item : in FLTK.Widgets.Widget'Class; @@ -56,20 +58,20 @@ package FLTK.Tooltips is function Get_Margin_Height return Natural; - -- procedure Set_Margin_Height - -- (To : in Natural); + procedure Set_Margin_Height + (To : in Natural); function Get_Margin_Width return Natural; - -- procedure Set_Margin_Width - -- (To : in Natural); + procedure Set_Margin_Width + (To : in Natural); function Get_Wrap_Width return Natural; - -- procedure Set_Wrap_Width - -- (To : in Natural); + procedure Set_Wrap_Width + (To : in Natural); @@ -100,24 +102,22 @@ private pragma Inline (Set_Target); pragma Inline (Is_Enabled); pragma Inline (Set_Enabled); + pragma Inline (Disable); pragma Inline (Enter_Area); - pragma Inline (Get_Delay); pragma Inline (Set_Delay); pragma Inline (Get_Hover_Delay); pragma Inline (Set_Hover_Delay); - pragma Inline (Get_Background_Color); pragma Inline (Set_Background_Color); pragma Inline (Get_Margin_Height); - -- pragma Inline (Set_Margin_Height); + pragma Inline (Set_Margin_Height); pragma Inline (Get_Margin_Width); - -- pragma Inline (Set_Margin_Width); + pragma Inline (Set_Margin_Width); pragma Inline (Get_Wrap_Width); - -- pragma Inline (Set_Wrap_Width); - + pragma Inline (Set_Wrap_Width); pragma Inline (Get_Text_Color); pragma Inline (Set_Text_Color); @@ -129,3 +129,4 @@ private end FLTK.Tooltips; + |