equal
deleted
inserted
replaced
220 ^ self == Point |
220 ^ self == Point |
221 |
221 |
222 "Modified: 23.4.1996 / 16:00:18 / cg" |
222 "Modified: 23.4.1996 / 16:00:18 / cg" |
223 ! ! |
223 ! ! |
224 |
224 |
225 !Point methodsFor:'Compatibility - Squeak'! |
225 !Point methodsFor:'Compatibility-Squeak'! |
226 |
226 |
227 adhereTo: aRectangle |
227 adhereTo: aRectangle |
228 "If the receiver lies outside aRectangle, return the nearest point on the boundary of the rectangle, otherwise return self." |
228 "If the receiver lies outside aRectangle, return the nearest point on the boundary of the rectangle, otherwise return self." |
229 |
229 |
230 (aRectangle containsPoint: self) ifTrue: [^ self]. |
230 (aRectangle containsPoint: self) ifTrue: [^ self]. |
1130 ! ! |
1130 ! ! |
1131 |
1131 |
1132 !Point class methodsFor:'documentation'! |
1132 !Point class methodsFor:'documentation'! |
1133 |
1133 |
1134 version |
1134 version |
1135 ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.57 2002-07-15 09:24:54 stefan Exp $' |
1135 ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.58 2003-05-07 14:31:09 cg Exp $' |
1136 ! ! |
1136 ! ! |
|
1137 |
1137 Point initialize! |
1138 Point initialize! |