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.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fltk-menu_items.adb') diff --git a/src/fltk-menu_items.adb b/src/fltk-menu_items.adb index 5bd2519..d68eb60 100644 --- a/src/fltk-menu_items.adb +++ b/src/fltk-menu_items.adb @@ -470,7 +470,7 @@ package body FLTK.Menu_Items is end Set_Label_Size; - function Get_Label_Type + function Get_Label_Kind (This : in Menu_Item) return Label_Kind is @@ -481,15 +481,15 @@ package body FLTK.Menu_Items is when Constraint_Error => raise Internal_FLTK_Error with "Fl_Menu_Item::labeltype returned unexpected Kind value of " & Interfaces.C.int'Image (Result); - end Get_Label_Type; + end Get_Label_Kind; - procedure Set_Label_Type + procedure Set_Label_Kind (This : in out Menu_Item; To : in Label_Kind) is begin fl_menu_item_set_labeltype (This.Void_Ptr, Label_Kind'Pos (To)); - end Set_Label_Type; + end Set_Label_Kind; -- cgit