1 files changed, 36 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators-dials.ads b/src/fltk-widgets-valuators-dials.ads
index cd22ec5..67b5aa7 100644
--- a/src/fltk-widgets-valuators-dials.ads
+++ b/src/fltk-widgets-valuators-dials.ads
@@ -5,6 +5,11 @@ package FLTK.Widgets.Valuators.Dials is
 
     type Dial is new Valuator with private;
 
+    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);
+
 
 
 
@@ -20,6 +25,10 @@ package FLTK.Widgets.Valuators.Dials is
 
 
 
+    function Get_Dial_Type
+           (This : in Dial)
+        return Dial_Kind;
+
     function Get_First_Angle
            (This : in Dial)
         return Integer;
@@ -52,6 +61,17 @@ package FLTK.Widgets.Valuators.Dials is
         return Event_Outcome;
 
 
+
+
+    package Extra is
+
+        procedure Set_Dial_Type
+               (This : in out Dial;
+                To   : in     Dial_Kind);
+
+    end Extra;
+
+
 private
 
 
@@ -61,5 +81,21 @@ private
            (This : in out Dial);
 
 
+
+
+    pragma Inline (Get_Dial_Type);
+
+
+    pragma Inline (Get_First_Angle);
+    pragma Inline (Set_First_Angle);
+    pragma Inline (Get_Second_Angle);
+    pragma Inline (Set_Second_Angle);
+    pragma Inline (Set_Angles);
+
+
+    pragma Inline (Draw);
+    pragma Inline (Handle);
+
+
 end FLTK.Widgets.Valuators.Dials;