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-widgets-groups-packed.ads | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-groups-packed.ads') diff --git a/src/fltk-widgets-groups-packed.ads b/src/fltk-widgets-groups-packed.ads index 4369fe7..60a6c2a 100644 --- a/src/fltk-widgets-groups-packed.ads +++ b/src/fltk-widgets-groups-packed.ads @@ -43,11 +43,11 @@ package FLTK.Widgets.Groups.Packed is (This : in out Packed_Group; To : in Integer); - function Get_Pack_Type + function Get_Kind (This : in Packed_Group) return Pack_Kind; - procedure Set_Pack_Type + procedure Set_Kind (This : in out Packed_Group; Kind : in Pack_Kind); @@ -82,8 +82,8 @@ private pragma Inline (Get_Spacing); pragma Inline (Set_Spacing); - pragma Inline (Get_Pack_Type); - pragma Inline (Set_Pack_Type); + pragma Inline (Get_Kind); + pragma Inline (Set_Kind); pragma Inline (Draw); -- cgit