summaryrefslogtreecommitdiff
path: root/fltk-widgets-groups-text_displays.adb
diff options
context:
space:
mode:
Diffstat (limited to 'fltk-widgets-groups-text_displays.adb')
-rw-r--r--fltk-widgets-groups-text_displays.adb32
1 files changed, 31 insertions, 1 deletions
diff --git a/fltk-widgets-groups-text_displays.adb b/fltk-widgets-groups-text_displays.adb
index ccee7c5..e39355f 100644
--- a/fltk-widgets-groups-text_displays.adb
+++ b/fltk-widgets-groups-text_displays.adb
@@ -18,6 +18,15 @@ package body FLTK.Widgets.Groups.Text_Displays is
(TD : in System.Address);
pragma Import (C, free_fl_text_display, "free_fl_text_display");
+ function fl_text_display_get_buffer
+ (TD : in System.Address)
+ return System.Address;
+ pragma Import (C, fl_text_display_get_buffer, "fl_text_display_get_buffer");
+
+ procedure fl_text_display_set_buffer
+ (TD, TB : in System.Address);
+ pragma Import (C, fl_text_display_set_buffer, "fl_text_display_set_buffer");
+
function fl_text_display_get_text_color
(TD : in System.Address)
return Interfaces.C.int;
@@ -84,12 +93,33 @@ package body FLTK.Widgets.Groups.Text_Displays is
Interfaces.C.int (H),
Interfaces.C.To_C (Label));
fl_group_end (VP);
- return (Ada.Finalization.Limited_Controlled with Void_Ptr => VP);
+ return (Ada.Finalization.Limited_Controlled with Void_Ptr => VP, Buffer => null);
end Create;
+ function Get_Buffer
+ (TD : in Text_Display'Class)
+ return Text_Buffer_Access is
+ begin
+ return TD.Buffer;
+ end Get_Buffer;
+
+
+
+
+ procedure Set_Buffer
+ (TD : in out Text_Display'Class;
+ TB : in Text_Buffer_Access) is
+ begin
+ fl_text_display_set_buffer (TD.Void_Ptr, Wrapper (TB.all).Void_Ptr);
+ TD.Buffer := TB;
+ end Set_Buffer;
+
+
+
+
function Get_Text_Color
(TD : in Text_Display'Class)
return Color is