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 | 32062c660307d5b34f46b1f7b75d17a184930e71 (patch) | |
| tree | 6ab33672207fdef5b500e5a0bfded5190f05e79e /fltk-widgets-groups-text_displays.ads | |
| parent | 2aac034b614d6de39f4aee9f41dba8f2bcc63d8d (diff) | |
Text buffers, access types and line lengths
Diffstat (limited to 'fltk-widgets-groups-text_displays.ads')
| -rw-r--r-- | fltk-widgets-groups-text_displays.ads | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/fltk-widgets-groups-text_displays.ads b/fltk-widgets-groups-text_displays.ads index bc50ae1..3481258 100644 --- a/fltk-widgets-groups-text_displays.ads +++ b/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 |