From 09d9f2f6fc83af3bdc76717941eb13b77b2b1613 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 20 Mar 2018 01:41:49 +1100 Subject: Moved several Widgets from the Partially list to the Done list --- src/fltk-widgets-inputs.ads | 73 ++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 72 insertions(+), 1 deletion(-) (limited to 'src/fltk-widgets-inputs.ads') 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); -- cgit