VSE Point

! Point methodsFor: #arithmetic-VSECompat !
abs
   "Answer a Point with coordinates that are the absolute
   value of the x and y coordinates of the receiver."
   ^x abs @ y abs! !

! Point methodsFor: #arithmetic-VSECompat !
between: aPoint and: bPoint
   "Answer true if the receiver is greater than or equal to
   aPoint and less than or equal to aPoint, else
   answer false."
   ^aPoint <= self
        and: [self <= bPoint]! !

! Point methodsFor: #converting-VSECompat !
corner: aPoint
   "Answer a Rectangle with origin equal to the receiver
   and corner equal to aPoint."
   ^Rectangle origin: self corner: aPoint! !

! Point methodsFor: #converting-VSECompat !
extentFromLeftBottom: aNumber
   "Answer a Rectangle whose origin is the receiver
   at the bottom-left corner and extent is aPoint."
   ^Rectangle
      leftTop: (self x @ (self y up: aPoint y))
      rightBottom: ((self x right: aPoint x) @ self y)! !

! Number methodsFor: #arithmetic-VSECompat !
up: aNumber
   "Answer the location up aNumber of positions from
   the receiver."
   ^self - aNumber! !

! Point methodsFor: #converting-VSECompat !
extentFromLeftTop: aPoint
   "Answer a Rectangle with left top corner equal to the receiver
   and extent equal to aPoint."
   ^Rectangle
      leftTop: self
      rightBottom: (self rightAndDown: aPoint)! !

! Point methodsFor: #testing-VSECompat !
isPoint
   "Answer true if receiver is a kind of Point."
   ^true! !

! Object methodsFor: #testing-VSECompat !
isPoint
  "Answer true if receiver is a kind of Point."
   ^false! !

! Point methodsFor: #arithmetic-VSECompat !
negated
   "Answer a Point with the x and y coordinates of
   the receiver negated."
   ^x negated @ y negated ! !

! Point methodsFor: #converting-VSECompat !
rightTop: aPoint
        "Answer a Rectangle with left bottom equal to the receiver
         and right top equal to aPoint."
    ^Rectangle leftBottom: self rightTop: aPoint! !

Secondary

Private