From 306adba6ddaab80c6929fe955567f25d9da7915f Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 1 May 2017 17:45:13 +1000 Subject: Draw method for Text Display and derivatives, concrete Menu_ derivatives --- src/fltk-widgets-groups-text_displays-text_editors.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/fltk-widgets-groups-text_displays-text_editors.ads') 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; -- cgit