[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
|