All File/Edit functions working, just need to add Search/About menu stuff

1 files changed, 10 insertions, 1 deletions

diff --git a/src/editors.adb b/src/editors.adb
index 42b89ed..74ae629 100644
--- a/src/editors.adb
+++ b/src/editors.adb
@@ -35,7 +35,7 @@ package body Editors is
            (W, H : in Integer)
         return Editor_Window is
     begin
-        return Create (0, 0, W, H, "AdaPad");
+        return Create (0, 0, W, H, "(Untitled)");
     end Create;
 
 
@@ -71,6 +71,15 @@ package body Editors is
 
 
 
+    procedure Undo
+           (This : in out Editor_Window) is
+    begin
+        This.Editor.Undo;
+    end Undo;
+
+
+
+
     procedure Cut
            (This : in out Editor_Window) is
     begin