--- a/Point.st Tue Apr 23 13:57:59 1996 +0200
+++ b/Point.st Tue Apr 23 16:04:52 1996 +0200
@@ -136,9 +136,12 @@
!Point class methodsFor:'queries'!
isBuiltInClass
- "this class is known by the run-time-system"
+ "return true if this class is known by the run-time-system.
+ Here, true is returned for myself, false for subclasses."
^ self == Point
+
+ "Modified: 23.4.1996 / 16:00:18 / cg"
! !
!Point methodsFor:'accessing'!
@@ -855,6 +858,6 @@
!Point class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.33 1996-04-22 11:02:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.34 1996-04-23 14:03:16 cg Exp $'
! !
Point initialize!