--- a/Point.st	Tue May 29 12:08:59 2007 +0200
+++ b/Point.st	Tue May 29 12:17:04 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 ArithmeticValue subclass:#Point
@@ -243,6 +242,12 @@
       ((y max: aRectangle top) min: aRectangle bottom)
 !
 
+area
+    ^ x * y
+
+    "Created: / 29-05-2007 / 09:57:57 / cg"
+!
+
 asFloatPoint
     "Squeak mimicri return the receiver as Point - this is the receiver"
 
@@ -1166,7 +1171,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.69 2005-11-08 08:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.70 2007-05-29 10:17:04 cg Exp $'
 ! !
 
 Point initialize!