blob: 2dae75df21c928b768dcef1b77110bddfbb22800 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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
with Implicit_Dereference => Data;
function Create
(Requested_Size : in Natural := 0;
Preferred_Gap_Size : in Natural := 1024)
return Text_Buffer;
private
type Text_Buffer is new Wrapper with null record;
overriding procedure Finalize
(This : in out Text_Buffer);
end FLTK.Text_Buffers;
|
