home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / SMALTALK / TEXTBOOK / AP15.ST (.txt) < prev    next >
Text File  |  1997-04-22  |  430b  |  19 lines
  1.  
  2. 'Smalltalk Textbook Appendix 15'!
  3.  
  4.  
  5.  
  6.  
  7.  
  8. !EngiDisplayModel methodsFor: 'bounds accessing'!
  9.  
  10. computeBounds
  11.     | bounds |
  12.     self canBeDisplayed
  13.         ifTrue: [bounds := self value bounds]
  14.         ifFalse: [bounds := self convertComposedText bounds].
  15.     bounds := bounds expandedBy: self expandedRectangle.
  16.     bounds := bounds merge: (Point zero corner: Point zero).
  17.     displayOrigin := Point zero - bounds origin.
  18.     ^Point zero extent: bounds extent! !
  19.