All keyboard controls now working except undo

1 files changed, 44 insertions, 0 deletions

diff --git a/src/moves.adb b/src/moves.adb
new file mode 100644
index 0000000..e9bffc1
--- /dev/null
+++ b/src/moves.adb
@@ -0,0 +1,44 @@
+
+
+package body Moves is
+
+
+    procedure Add
+           (This : in out Path;
+            Item : in     Move) is
+    begin
+        This.Append (Item);
+    end Add;
+
+
+
+
+    procedure Add
+           (This : in out Path;
+            List : in     Path) is
+    begin
+        This.Append (List);
+    end Add;
+
+
+
+
+    function Latest
+           (This : in Path)
+        return Move is
+    begin
+        return This.Last_Element;
+    end Latest;
+
+
+
+
+    procedure Drop_Latest
+           (This : in out Path) is
+    begin
+        This.Delete_Last;
+    end Drop_Latest;
+
+
+end Moves;
+