--- a/Point.st	Sat Jun 21 12:41:51 2003 +0200
+++ b/Point.st	Sat Jun 21 12:42:57 2003 +0200
@@ -968,6 +968,16 @@
     ^ true
 ! !
 
+!Point methodsFor:'testing'!
+
+isFinite
+	^x isFinite and: [y isFinite]
+!
+
+isInfinite
+	^x isInfinite or: [y isInfinite]
+! !
+
 !Point methodsFor:'transformations'!
 
 * scale 
@@ -1132,7 +1142,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.59 2003-06-16 09:28:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.60 2003-06-21 10:42:57 cg Exp $'
 ! !
 
 Point initialize!