From 7a14ee099c2fd382c2951627bf43e3fc507181f4 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 19 Sep 2016 18:53:14 +1000
Subject: Editors.adb/ads now known as Editor_Windows.adb/ads in preparation
 for more window types

---
 src/editors.adb | 118 --------------------------------------------------------
 1 file changed, 118 deletions(-)
 delete mode 100644 src/editors.adb

(limited to 'src/editors.adb')

diff --git a/src/editors.adb b/src/editors.adb
deleted file mode 100644
index 74ae629..0000000
--- a/src/editors.adb
+++ /dev/null
@@ -1,118 +0,0 @@
-
-
-with FLTK.Enums;
-use FLTK.Enums;
-
-
-package body Editors is
-
-
-    function Create
-           (X, Y, W, H : in Integer;
-            Label_Text : in String)
-        return Editor_Window is
-
-        Width, Height : Integer;
-
-    begin
-        if W < 300 then Width := 300; else Width := W; end if;
-        if H < 60 then Height := 60; else Height := H; end if;
-
-        return This : Editor_Window :=
-                   (Double_Window'(Create (X, Y, Width, Height, Label_Text)) with
-                    Editor => Text_Editor'(Create (0, 30, Width, Height - 30, "")),
-                    Bar => Menu_Bar'(Create (0, 0, Width, 30, ""))) do
-            This.Add (This.Editor);
-            This.Add (This.Bar);
-            This.Editor.Set_Text_Font (Courier);
-        end return;
-    end Create;
-
-
-
-
-    function Create
-           (W, H : in Integer)
-        return Editor_Window is
-    begin
-        return Create (0, 0, W, H, "(Untitled)");
-    end Create;
-
-
-
-
-    function Get_Buffer
-           (This : in Editor_Window)
-        return Text_Buffer_Cursor is
-    begin
-        return This.Editor.Get_Buffer;
-    end Get_Buffer;
-
-
-
-
-    procedure Set_Buffer
-           (This : in out Editor_Window;
-            Buff : in out Text_Buffer) is
-    begin
-        This.Editor.Set_Buffer (Buff);
-    end Set_Buffer;
-
-
-
-
-    function Get_Menu
-           (This : in out Editor_Window)
-        return Menu_Cursor is
-    begin
-        return Ref : Menu_Cursor (This.Bar'Access);
-    end Get_Menu;
-
-
-
-
-    procedure Undo
-           (This : in out Editor_Window) is
-    begin
-        This.Editor.Undo;
-    end Undo;
-
-
-
-
-    procedure Cut
-           (This : in out Editor_Window) is
-    begin
-        This.Editor.Cut;
-    end Cut;
-
-
-
-
-    procedure Copy
-           (This : in out Editor_Window) is
-    begin
-        This.Editor.Copy;
-    end Copy;
-
-
-
-
-    procedure Paste
-           (This : in out Editor_Window) is
-    begin
-        This.Editor.Paste;
-    end Paste;
-
-
-
-
-    procedure Delete
-           (This : in out Editor_Window) is
-    begin
-        This.Editor.Delete;
-    end Delete;
-
-
-end Editors;
-
-- 
cgit