Factored out some trivial bits into Misc, made coding style more consistent

1 files changed, 10 insertions, 10 deletions

diff --git a/src/things.adb b/src/things.adb
index efd8b63..66cc07e 100644
--- a/src/things.adb
+++ b/src/things.adb
@@ -3,6 +3,16 @@
 package body Things is
 
 
+    function "="
+           (A, B : in Thing)
+        return Boolean is
+    begin
+        return A.Self_Image = B.Self_Image;
+    end "=";
+
+
+
+
     procedure Draw
            (This : in Thing;
             X, Y : in Integer) is
@@ -13,15 +23,5 @@ package body Things is
     end Draw;
 
 
-
-
-    function "="
-           (A, B : in Thing)
-        return Boolean is
-    begin
-        return A.Self_Image = B.Self_Image;
-    end "=";
-
-
 end Things;