diff options
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 |