1 files changed, 72 insertions, 1 deletions
diff --git a/src/fltk-widgets-inputs.ads b/src/fltk-widgets-inputs.ads
index 2531cfa..fc7b980 100644
--- a/src/fltk-widgets-inputs.ads
+++ b/src/fltk-widgets-inputs.ads
@@ -29,10 +29,79 @@ package FLTK.Widgets.Inputs is
 
 
 
+    procedure Copy
+           (This : in out Input);
+
+    procedure Cut
+           (This : in out Input);
+
+    procedure Cut
+           (This      : in out Input;
+            Num_Bytes : in     Integer);
+
+    procedure Cut
+           (This          : in out Input;
+            Start, Finish : in     Integer);
+
+    procedure Copy_Cuts
+           (This : in out Input);
+
+
+
+
+    function Has_Changed
+           (This : in Input)
+        return Boolean;
+
+    procedure Clear_Changed
+           (This : in out Input);
+
+    function Is_Readonly
+           (This : in Input)
+        return Boolean;
+
+    procedure Set_Readonly
+           (This : in out Input;
+            To   : in     Boolean);
+
+
+
+
     function Get_Value
            (This : in Input)
         return String;
 
+    procedure Set_Value
+           (This : in out Input;
+            To   : in     String);
+
+
+
+
+    function Get_Text_Color
+           (This : in Input)
+        return Color;
+
+    procedure Set_Text_Color
+           (This : in out Input;
+            To   : in     Color);
+
+    function Get_Text_Font
+           (This : in Input)
+        return Font_Kind;
+
+    procedure Set_Text_Font
+           (This : in out Input;
+            To   : in     Font_Kind);
+
+    function Get_Text_Size
+           (This : in Input)
+        return Font_Size;
+
+    procedure Set_Text_Size
+           (This : in out Input;
+            To   : in     Font_Size);
+
 
 
 
@@ -48,7 +117,9 @@ package FLTK.Widgets.Inputs is
 private
 
 
-    type Input is new Widget with null record;
+    type Input is new Widget with record
+        Was_Changed : Boolean := False;
+    end record;
 
     overriding procedure Finalize
            (This : in out Input);