From 1f9e7a15d9414b1a96691111069523a70e107f16 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 4 Oct 2016 18:52:32 +1100 Subject: Basic find functionality working --- src/fltk_binding/fltk-widgets-groups-text_displays.ads | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/fltk_binding/fltk-widgets-groups-text_displays.ads') diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays.ads b/src/fltk_binding/fltk-widgets-groups-text_displays.ads index bb99e78..84c6551 100644 --- a/src/fltk_binding/fltk-widgets-groups-text_displays.ads +++ b/src/fltk_binding/fltk-widgets-groups-text_displays.ads @@ -56,6 +56,20 @@ package FLTK.Widgets.Groups.Text_Displays is Size : in Font_Size); + function Get_Insert_Position + (This : in Text_Display) + return Natural; + + + procedure Set_Insert_Position + (This : in out Text_Display; + Pos : in Natural); + + + procedure Show_Insert_Position + (This : in out Text_Display); + + private -- cgit