Draw method for Text Display and derivatives, concrete Menu_ derivatives

1 files changed, 8 insertions, 0 deletions

diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads
index d4c9b85..0f84a7e 100644
--- a/src/fltk-widgets-groups-text_displays-text_editors.ads
+++ b/src/fltk-widgets-groups-text_displays-text_editors.ads
@@ -43,6 +43,10 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 private
 
 
+    procedure Draw
+           (This : in out Text_Editor);
+
+
     type Text_Editor is new Text_Display with null record;
 
 
@@ -50,5 +54,9 @@ private
            (This : in out Text_Editor);
 
 
+    package Text_Editor_Convert is new System.Address_To_Access_Conversions
+           (Text_Editor'Class);
+
+
 end FLTK.Widgets.Groups.Text_Displays.Text_Editors;