diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-05-27 04:03:00 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-27 04:03:00 +1000 |
| commit | b1a8b46960380dc3a771935a09c4e4a23e811c4a (patch) | |
| tree | 25d2693835dc3410165e19670b16a0c50a51ef4b /src/fltk_binding/fltk-widgets-groups-text_displays.ads | |
| parent | 2b4468a62a55d9f8520582f9aa2e420ab89ed7bd (diff) | |
Text buffers, access types and line lengths
Diffstat (limited to 'src/fltk_binding/fltk-widgets-groups-text_displays.ads')
| -rw-r--r-- | src/fltk_binding/fltk-widgets-groups-text_displays.ads | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays.ads b/src/fltk_binding/fltk-widgets-groups-text_displays.ads index bc50ae1..3481258 100644 --- a/src/fltk_binding/fltk-widgets-groups-text_displays.ads +++ b/src/fltk_binding/fltk-widgets-groups-text_displays.ads @@ -1,5 +1,6 @@ +with FLTK.Text_Buffers; use FLTK.Text_Buffers; with FLTK.Enums; use FLTK.Enums; @@ -7,6 +8,7 @@ package FLTK.Widgets.Groups.Text_Displays is type Text_Display is new Group with private; + type Text_Display_Access is access all Text_Display; function Create @@ -15,6 +17,16 @@ package FLTK.Widgets.Groups.Text_Displays is return Text_Display; + function Get_Buffer + (TD : in Text_Display'Class) + return Text_Buffer_Access; + + + procedure Set_Buffer + (TD : in out Text_Display'Class; + TB : in Text_Buffer_Access); + + function Get_Text_Color (TD : in Text_Display'Class) return Color; @@ -48,7 +60,10 @@ package FLTK.Widgets.Groups.Text_Displays is private - type Text_Display is new Group with null record; + type Text_Display is new Group with + record + Buffer : Text_Buffer_Access; + end record; overriding procedure Finalize |