[squeak-dev] The Trunk: Morphic-nice.199.mcz

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.199.mcz

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

Name: Morphic-nice.199
Author: nice
Time: 5 October 2009, 10:47:59 am
UUID: 41252ffe-79b7-4b7d-b491-e12aa70f9f7f
Ancestors: Morphic-ar.198

Fix http://bugs.squeak.org/view.php?id=6972
Some TextConstants are hardcoded in TextLine

=============== Diff against Morphic-ar.198 ===============

Item was changed:
  Object subclass: #TextLine
  instanceVariableNames: 'left right top bottom firstIndex lastIndex internalSpaces paddingWidth baseline leftMargin'
  classVariableNames: ''
+ poolDictionaries: 'TextConstants'
- poolDictionaries: ''
  category: 'Morphic-Text Support'!
 
  !TextLine commentStamp: '<historical>' prior: 0!
  A TextLine embodies the layout of a line of composed text.
  left right top bottom The full line rectangle
  firstIndex lastIndex Starting and stopping indices in the full text
  internalSpaces Number of spaces to share paddingWidth
  paddingWidth Number of pixels of extra space in full line
  baseline Distance of baseline below the top of the line
  leftMargin Left margin due to paragraph indentation
  TextLine's rather verbose message protocol is required for compatibility with the old CharacterScanners.!

Item was changed:
  ----- Method: TextLine>>leftMarginForAlignment: (in category 'accessing') -----
  leftMarginForAlignment: alignmentCode
+ alignmentCode = RightFlush ifTrue: [^ self left + paddingWidth].
+ alignmentCode = Centered ifTrue: [^ self left + (paddingWidth//2)].
- alignmentCode = 1 ifTrue: [^ self left + paddingWidth].  "right flush"
- alignmentCode = 2 ifTrue: [^ self left + (paddingWidth//2)].  "centered"
  ^ self left  "leftFlush and justified"!