1 files changed, 173 insertions, 0 deletions
diff --git a/spec/fltk-widgets-valuators.ads b/spec/fltk-widgets-valuators.ads
new file mode 100644
index 0000000..1e60f4b
--- /dev/null
+++ b/spec/fltk-widgets-valuators.ads
@@ -0,0 +1,173 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+limited with
+
+    FLTK.Widgets.Groups;
+
+
+package FLTK.Widgets.Valuators is
+
+
+    type Valuator is new Widget with private;
+
+    type Valuator_Reference (Data : not null access Valuator'Class) is
+        limited null record with Implicit_Dereference => Data;
+
+
+
+
+    package Forge is
+
+        function Create
+               (X, Y, W, H : in Integer;
+                Text       : in String := "")
+            return Valuator;
+
+        function Create
+               (Parent     : in out FLTK.Widgets.Groups.Group'Class;
+                X, Y, W, H : in     Integer;
+                Text       : in     String := "")
+            return Valuator;
+
+    end Forge;
+
+
+
+
+    --  You may override this to change the formatting of the Valuator
+    function Format
+           (This : in Valuator)
+        return String;
+
+
+
+
+    function Clamp
+           (This  : in Valuator;
+            Input : in Long_Float)
+        return Long_Float;
+
+    function Round
+           (This  : in Valuator;
+            Input : in Long_Float)
+        return Long_Float;
+
+    function Increment
+           (This  : in Valuator;
+            Input : in Long_Float;
+            Step  : in Integer)
+        return Long_Float;
+
+
+
+
+    function Get_Minimum
+           (This : in Valuator)
+        return Long_Float;
+
+    procedure Set_Minimum
+           (This : in out Valuator;
+            To   : in     Long_Float);
+
+    function Get_Maximum
+           (This : in Valuator)
+        return Long_Float;
+
+    procedure Set_Maximum
+           (This : in out Valuator;
+            To   : in     Long_Float);
+
+    function Get_Step
+           (This : in Valuator)
+        return Long_Float;
+
+    procedure Set_Step_Top
+           (This : in out Valuator;
+            To   : in     Long_Float);
+
+    procedure Set_Step_Bottom
+           (This : in out Valuator;
+            To   : in     Integer);
+
+    procedure Set_Step
+           (This   : in out Valuator;
+            Top    : in     Long_Float;
+            Bottom : in     Integer);
+
+    function Get_Value
+           (This : in Valuator)
+        return Long_Float;
+
+    procedure Set_Value
+           (This : in out Valuator;
+            To   : in     Long_Float);
+
+    procedure Set_Bounds
+           (This     : in out Valuator;
+            Min, Max : in     Long_Float);
+
+    procedure Set_Precision
+           (This : in out Valuator;
+            To   : in     Integer);
+
+    procedure Set_Range
+           (This     : in out Valuator;
+            Min, Max : in     Long_Float);
+
+
+
+
+    procedure Value_Damage
+           (This : in out Valuator);
+
+
+private
+
+
+    type Valuator is new Widget with null record;
+
+    overriding procedure Initialize
+           (This : in out Valuator);
+
+    overriding procedure Finalize
+           (This : in out Valuator);
+
+    procedure Extra_Init
+           (This       : in out Valuator;
+            X, Y, W, H : in     Integer;
+            Text       : in     String)
+    with Inline;
+
+    procedure Extra_Final
+           (This : in out Valuator)
+    with Inline;
+
+
+    pragma Inline (Clamp);
+    pragma Inline (Round);
+    pragma Inline (Increment);
+
+    pragma Inline (Get_Minimum);
+    pragma Inline (Set_Minimum);
+    pragma Inline (Get_Maximum);
+    pragma Inline (Set_Maximum);
+    pragma Inline (Get_Step);
+    pragma Inline (Set_Step_Top);
+    pragma Inline (Set_Step_Bottom);
+    pragma Inline (Set_Step);
+    pragma Inline (Get_Value);
+    pragma Inline (Set_Value);
+    pragma Inline (Set_Bounds);
+    pragma Inline (Set_Precision);
+    pragma Inline (Set_Range);
+
+    pragma Inline (Value_Damage);
+
+
+end FLTK.Widgets.Valuators;
+
+