diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-20 01:41:49 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-20 01:41:49 +1100 |
commit | 09d9f2f6fc83af3bdc76717941eb13b77b2b1613 (patch) | |
tree | 82b57130cd381b9a0b261eabdc4239c09dcc17f2 /src/fltk-widgets-inputs.ads | |
parent | c1dcb4c61e79b1ddd98c0ef84f2d36be7f7fd736 (diff) |
Moved several Widgets from the Partially list to the Done list
Diffstat (limited to 'src/fltk-widgets-inputs.ads')
-rw-r--r-- | src/fltk-widgets-inputs.ads | 73 |
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); |