From ecdb8876ea6bdd333386aa7014cc5a8e0abe4c91 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Apr 2017 18:21:25 +1000 Subject: Moved fltk binding to separate repo --- src/fltk_binding/fltk-text_buffers.ads | 180 --------------------------------- 1 file changed, 180 deletions(-) delete mode 100644 src/fltk_binding/fltk-text_buffers.ads (limited to 'src/fltk_binding/fltk-text_buffers.ads') diff --git a/src/fltk_binding/fltk-text_buffers.ads b/src/fltk_binding/fltk-text_buffers.ads deleted file mode 100644 index d3e1bab..0000000 --- a/src/fltk_binding/fltk-text_buffers.ads +++ /dev/null @@ -1,180 +0,0 @@ - - -private with Ada.Containers.Vectors; -private with System.Address_To_Access_Conversions; - - -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; - - - type Position is new Natural; - type Modification is (Insert, Restyle, Delete, None); - - - type Modify_Callback is access procedure - (Action : in Modification; - Place : in Position; - Length : in Natural; - Deleted_Text : in String); - - - type Predelete_Callback is access procedure - (Place : in Position; - Length : in Natural); - - - function Create - (Requested_Size : in Natural := 0; - Preferred_Gap_Size : in Natural := 1024) - return Text_Buffer; - - - procedure Add_Modify_Callback - (This : in out Text_Buffer; - Func : in Modify_Callback); - - - procedure Add_Predelete_Callback - (This : in out Text_Buffer; - Func : in Predelete_Callback); - - - procedure Call_Modify_Callbacks - (This : in out Text_Buffer); - - - procedure Call_Predelete_Callbacks - (This : in out Text_Buffer); - - - procedure Enable_Callbacks - (This : in out Text_Buffer); - - - procedure Disable_Callbacks - (This : in out Text_Buffer); - - - procedure Insert_Text - (This : in out Text_Buffer; - Pos : in Natural; - Item : in String); - - - procedure Remove_Text - (This : in out Text_Buffer; - Start, Finish : in Natural); - - - function Length - (This : in Text_Buffer) - return Natural; - - - procedure Load_File - (This : in Text_Buffer; - Name : in String); - - - procedure Remove_Selected_Text - (This : in out Text_Buffer); - - - procedure Save_File - (This : in Text_Buffer; - Name : in String); - - - function Search_Forward - (This : in Text_Buffer; - Start_At : in Natural; - Item : in String; - Found_At : out Natural; - Match_Case : in Boolean) - return Boolean; - - - function Search_Backward - (This : in Text_Buffer; - Start_At : in Natural; - Item : in String; - Found_At : out Natural; - Match_Case : in Boolean) - return Boolean; - - - procedure Set_Selection - (This : in out Text_Buffer; - Start, Finish : in Natural); - - - function Get_Selection - (This : in Text_Buffer; - Start, Finish : out Natural) - return Boolean; - - - function Has_Selection - (This : in Text_Buffer) - return Boolean; - - - -- only takes into account newline characters, not word wrap - function Skip_Lines - (This : in out Text_Buffer; - Start, Lines : in Natural) - return Natural; - - - -- only takes into account newline characters, not word wrap - function Rewind_Lines - (This : in out Text_Buffer; - Start, Lines : in Natural) - return Natural; - - - function Character_At - (This : in Text_Buffer; - Pos : in Natural) - return Character; - - - function Text_At - (This : in Text_Buffer; - Start, Finish : in Natural) - return String; - - -private - - - package Modify_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, - Element_Type => Modify_Callback); - package Predelete_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, - Element_Type => Predelete_Callback); - - - type Text_Buffer is new Wrapper with - record - CB_Active : Boolean; - Modify_CBs : Modify_Vectors.Vector; - Predelete_CBs : Predelete_Vectors.Vector; - end record; - - - overriding procedure Finalize - (This : in out Text_Buffer); - - - package Text_Buffer_Convert is new System.Address_To_Access_Conversions (Text_Buffer); - - -end FLTK.Text_Buffers; - -- cgit