diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-04-30 01:33:49 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-04-30 01:33:49 +1000 |
commit | 71c1c5bb789f315239a64cb22002088ddcb353b1 (patch) | |
tree | 41904e45fdc14149093a028b72283123d2743471 /src/fltk-widgets-groups-input_choices.ads | |
parent | ca9cca53a19145216cb0e00462db239e1194696d (diff) |
Text_Displays finished, more things polished
Diffstat (limited to 'src/fltk-widgets-groups-input_choices.ads')
-rw-r--r-- | src/fltk-widgets-groups-input_choices.ads | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-input_choices.ads b/src/fltk-widgets-groups-input_choices.ads index 52fa2d0..b57585d 100644 --- a/src/fltk-widgets-groups-input_choices.ads +++ b/src/fltk-widgets-groups-input_choices.ads @@ -11,6 +11,9 @@ package FLTK.Widgets.Groups.Input_Choices is type Input_Choice is new Group with private; + type Input_Choice_Reference (Data : not null access Input_Choice'Class) is + limited null record with Implicit_Dereference => Data; + @@ -37,6 +40,12 @@ package FLTK.Widgets.Groups.Input_Choices is + procedure Clear + (This : in out Input_Choice); + + + + function Has_Changed (This : in Input_Choice) return Boolean; @@ -44,6 +53,10 @@ package FLTK.Widgets.Groups.Input_Choices is procedure Clear_Changed (This : in out Input_Choice); + procedure Set_Changed + (This : in out Input_Choice; + To : in Boolean); + function Get_Down_Box (This : in Input_Choice) return Box_Kind; @@ -120,5 +133,30 @@ private (This : in out Input_Choice); + + + pragma Inline (Input); + pragma Inline (Menu_Button); + + + pragma Inline (Has_Changed); + pragma Inline (Clear_Changed); + pragma Inline (Get_Down_Box); + pragma Inline (Set_Down_Box); + pragma Inline (Get_Text_Color); + pragma Inline (Set_Text_Color); + pragma Inline (Get_Text_Font); + pragma Inline (Set_Text_Font); + pragma Inline (Get_Text_Size); + pragma Inline (Set_Text_Size); + pragma Inline (Get_Input); + pragma Inline (Set_Input); + pragma Inline (Set_Item); + + + pragma Inline (Draw); + pragma Inline (Handle); + + end FLTK.Widgets.Groups.Input_Choices; |