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-valuators-dials.ads | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-valuators-dials.ads') diff --git a/src/fltk-widgets-valuators-dials.ads b/src/fltk-widgets-valuators-dials.ads index 90fa4d4..036c6f1 100644 --- a/src/fltk-widgets-valuators-dials.ads +++ b/src/fltk-widgets-valuators-dials.ads @@ -17,7 +17,7 @@ package FLTK.Widgets.Valuators.Dials is type Dial_Reference (Data : not null access Dial'Class) is limited null record with Implicit_Dereference => Data; - type Dial_Kind is (Normal_Kind, Line_Kind, Fill_Kind); + type Dial_Kind is (Normal_Dial, Line_Dial, Fill_Dial); @@ -84,13 +84,13 @@ package FLTK.Widgets.Valuators.Dials is - function Get_Dial_Type + function Get_Kind (This : in Dial) return Dial_Kind; package Extra is - procedure Set_Dial_Type + procedure Set_Kind (This : in out Dial; To : in Dial_Kind); @@ -128,7 +128,7 @@ private pragma Inline (Draw); pragma Inline (Handle); - pragma Inline (Get_Dial_Type); + pragma Inline (Get_Kind); end FLTK.Widgets.Valuators.Dials; -- cgit