From f9e453e3d456514066e8ecbed9fbac93a588a0d0 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 21 Jan 2025 00:53:56 +1300 Subject: Using the type method is now more consistent --- src/fltk-menu_items.ads | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fltk-menu_items.ads') diff --git a/src/fltk-menu_items.ads b/src/fltk-menu_items.ads index 5c300d3..ac80984 100644 --- a/src/fltk-menu_items.ads +++ b/src/fltk-menu_items.ads @@ -124,11 +124,11 @@ package FLTK.Menu_Items is (This : in out Menu_Item; To : in Font_Size); - function Get_Label_Type + function Get_Label_Kind (This : in Menu_Item) return Label_Kind; - procedure Set_Label_Type + procedure Set_Label_Kind (This : in out Menu_Item; To : in Label_Kind); @@ -219,8 +219,8 @@ private pragma Inline (Set_Label_Font); pragma Inline (Get_Label_Size); pragma Inline (Set_Label_Size); - pragma Inline (Get_Label_Type); - pragma Inline (Set_Label_Type); + pragma Inline (Get_Label_Kind); + pragma Inline (Set_Label_Kind); pragma Inline (Get_Shortcut); pragma Inline (Set_Shortcut); -- cgit