--- 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!