From e63ddbaa05da3aa302a330a71f45f49d0343691d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 5 Aug 2017 15:14:23 +1000
Subject: All keyboard controls now working except undo

---
 src/moves.adb | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/moves.adb

(limited to 'src/moves.adb')

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;
+
-- 
cgit