From 0d842f0423ba0754fb3675c7468397a8da5f6e1b Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 27 Apr 2017 10:40:48 +1000 Subject: Organising source --- fltk-widgets-groups-text_displays.ads | 124 ---------------------------------- 1 file changed, 124 deletions(-) delete mode 100644 fltk-widgets-groups-text_displays.ads (limited to 'fltk-widgets-groups-text_displays.ads') diff --git a/fltk-widgets-groups-text_displays.ads b/fltk-widgets-groups-text_displays.ads deleted file mode 100644 index 0e136ff..0000000 --- a/fltk-widgets-groups-text_displays.ads +++ /dev/null @@ -1,124 +0,0 @@ - - -with FLTK.Text_Buffers; -with FLTK.Enums; use FLTK.Enums; - - -package FLTK.Widgets.Groups.Text_Displays is - - - type Text_Display is new Group with private; - - - type Wrap_Mode is (Wrap_None, Wrap_At_Column, Wrap_At_Pixel, Wrap_At_Bounds); - - - function Create - (X, Y, W, H : in Integer; - Text : in String) - return Text_Display; - - - function Get_Buffer - (This : in Text_Display) - return FLTK.Text_Buffers.Text_Buffer_Cursor; - - - procedure Set_Buffer - (This : in out Text_Display; - Buff : in out FLTK.Text_Buffers.Text_Buffer); - - - function Get_Text_Color - (This : in Text_Display) - return Color; - - - procedure Set_Text_Color - (This : in out Text_Display; - Col : in Color); - - - function Get_Text_Font - (This : in Text_Display) - return Font_Kind; - - - procedure Set_Text_Font - (This : in out Text_Display; - Font : in Font_Kind); - - - function Get_Text_Size - (This : in Text_Display) - return Font_Size; - - - procedure Set_Text_Size - (This : in out Text_Display; - 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); - - - procedure Next_Word - (This : in out Text_Display); - - - procedure Previous_Word - (This : in out Text_Display); - - - procedure Set_Wrap_Mode - (This : in out Text_Display; - Mode : in Wrap_Mode; - Margin : in Natural := 0); - - - -- takes into account word wrap as well as newline characters - function Skip_Lines - (This : in out Text_Display; - Start, Lines : in Natural; - Start_Pos_Is_Line_Start : in Boolean := False) - return Natural; - - - -- takes into account word wrap as well as newline characters - function Rewind_Lines - (This : in out Text_Display; - Start, Lines : in Natural) - return Natural; - - - procedure Set_Linenumber_Width - (This : in out Text_Display; - Width : in Natural); - - -private - - - type Text_Display is new Group with - record - Buffer : access FLTK.Text_Buffers.Text_Buffer; - end record; - - - overriding procedure Finalize - (This : in out Text_Display); - - -end FLTK.Widgets.Groups.Text_Displays; - -- cgit