From 71c1c5bb789f315239a64cb22002088ddcb353b1 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 30 Apr 2018 01:33:49 +1000 Subject: Text_Displays finished, more things polished --- src/fltk-text_buffers.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/fltk-text_buffers.ads') diff --git a/src/fltk-text_buffers.ads b/src/fltk-text_buffers.ads index ea66f6f..a2b5a6a 100644 --- a/src/fltk-text_buffers.ads +++ b/src/fltk-text_buffers.ads @@ -12,7 +12,7 @@ package FLTK.Text_Buffers is type Text_Buffer is new Wrapper with private; - type Text_Buffer_Cursor (Data : access Text_Buffer'Class) is limited null record + type Text_Buffer_Reference (Data : access Text_Buffer'Class) is limited null record with Implicit_Dereference => Data; type Position is new Natural; -- cgit