summaryrefslogtreecommitdiff
path: root/src/things.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/things.adb')
-rw-r--r--src/things.adb20
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;