[Pkg] The Trunk: ST80-mt.212.mcz

commits at source.squeak.org commits at source.squeak.org
Mon May 9 15:09:18 UTC 2016


Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.212.mcz

==================== Summary ====================

Name: ST80-mt.212
Author: mt
Time: 9 May 2016, 5:09:09.023554 pm
UUID: ffa77d99-631e-bc4b-a739-fd4326b8140e
Ancestors: ST80-mt.211

For the sake of documentation, recover the resource-optimized version of rendering paragraphs into forms.

=============== Diff against ST80-mt.211 ===============

Item was changed:
  ----- Method: Paragraph>>asForm (in category 'converting') -----
  asForm
  	"Answer a Form made up of the bits that represent the receiver's displayable text."
  
  	| theForm |
+ 	theForm := textStyle maxDepth = 1
+ 		ifTrue: [
+ 			(ColorForm extent: compositionRectangle extent)
+ 				offset: offset;
+ 				colors: {
+ 					backColor ifNil: [Color transparent].
+ 					foreColor ifNil: [Color black]}]
+ 		ifFalse: [
+ 			(Form extent: compositionRectangle extent depth: Display depth)
+ 				offset: offset].
- 	theForm := (Form extent: compositionRectangle extent depth: Display depth)
- 		offset: offset.
  
  	self displayOn: theForm
  		at: 0 at 0
  		clippingBox: theForm boundingBox
  		rule: Form over
  		fillColor: nil.
  
  	^ theForm
  
  "Example:
  | p |
  p := 'Abc' asParagraph.
  p foregroundColor: Color red backgroundColor: Color black.
  p asForm displayOn: Display at: 30 at 30 rule: Form over"
  !



More information about the Packages mailing list