[squeak-dev] The Trunk: Collections-dtl.548.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 12 23:59:10 UTC 2013


David T. Lewis uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-dtl.548.mcz

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

Name: Collections-dtl.548
Author: dtl
Time: 12 December 2013, 6:58:08.878 pm
UUID: b167353b-b9ab-4911-8168-c5f184cab62a
Ancestors: Collections-ul.547

Transcripter>>initInFrame: should do nothing when not in MVC

=============== Diff against Collections-ul.547 ===============

Item was changed:
  ----- Method: Transcripter>>initInFrame: (in category 'initialization') -----
  initInFrame: rect
+ 	Smalltalk at: #Paragraph ifPresent: [:classParagraph | "MVC"
+ 		frame := rect insetBy: 2.  "Leave room for border"
+ 		para := classParagraph withText: self contents asText
+ 					style: TextStyle default
+ 					compositionRectangle: ((frame insetBy: 4) withHeight: 9999)
+ 					clippingRectangle: frame
+ 					foreColor: self black backColor: self white]!
- 	frame := rect insetBy: 2.  "Leave room for border"
- 	(Smalltalk hasClassNamed: #Paragraph)
- 		ifFalse: [^ self inform: 'MVC class Paragraph not present'].
- 	para := (Smalltalk at: #Paragraph) withText: self contents asText
- 				style: TextStyle default
- 				compositionRectangle: ((frame insetBy: 4) withHeight: 9999)
- 				clippingRectangle: frame
- 				foreColor: self black backColor: self white!



More information about the Squeak-dev mailing list