From 0d842f0423ba0754fb3675c7468397a8da5f6e1b Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 27 Apr 2017 10:40:48 +1000
Subject: Organising source

---
 ...k-widgets-groups-text_displays-text_editors.ads | 54 ++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 src/fltk-widgets-groups-text_displays-text_editors.ads

(limited to 'src/fltk-widgets-groups-text_displays-text_editors.ads')

diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads
new file mode 100644
index 0000000..d4c9b85
--- /dev/null
+++ b/src/fltk-widgets-groups-text_displays-text_editors.ads
@@ -0,0 +1,54 @@
+
+
+with FLTK.Enums; use FLTK.Enums;
+
+
+package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
+
+
+    type Text_Editor is new Text_Display with private;
+
+
+    function Create
+           (X, Y, W, H : in Integer;
+            Text       : in String)
+        return Text_Editor;
+
+
+    procedure Undo
+           (This : in out Text_Editor);
+
+
+    procedure Cut
+           (This : in out Text_Editor);
+
+
+    procedure Copy
+           (This : in out Text_Editor);
+
+
+    procedure Paste
+           (This : in out Text_Editor);
+
+
+    procedure Delete
+           (This : in out Text_Editor);
+
+
+    procedure Remove_Key_Binding
+           (This : in out Text_Editor;
+            Key  : in     Shortcut_Key);
+
+
+private
+
+
+    type Text_Editor is new Text_Display with null record;
+
+
+    overriding procedure Finalize
+           (This : in out Text_Editor);
+
+
+end FLTK.Widgets.Groups.Text_Displays.Text_Editors;
+
-- 
cgit