The Trunk: Graphics-nice.112.mcz

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

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

Name: Graphics-nice.112
Author: nice
Time: 28 February 2010, 6:28:33.044 pm
UUID: 7abc339c-9c51-d541-bb13-8574dfad3a1d
Ancestors: Graphics-dtl.109

Fix endOfRun and crossedX encodings in paragraph composition - Part 1

=============== Diff against Graphics-dtl.109 ===============

Item was changed:
  ----- Method: CharacterScanner class>>initialize (in category 'class initialization') -----
  initialize
  "
  CharacterScanner initialize
  "
  | a |
  a := Array new: 258.
  a at: 1 + 1 put: #embeddedObject.
  a at: Tab asciiValue + 1 put: #tab.
  a at: CR asciiValue + 1 put: #cr.
  a at: Character lf asciiValue + 1 put: #cr.
  a at: EndOfRun put: #endOfRun.
  a at: CrossedX put: #crossedX.
+ a := TextStopConditions new setStops: a.
  NilCondition := a copy.
  DefaultStopConditions := a copy.
 
  PaddedSpaceCondition := a copy.
  PaddedSpaceCondition at: Space asciiValue + 1 put: #paddedSpace.
 
  SpaceCondition := a copy.
  SpaceCondition at: Space asciiValue + 1 put: #space.
  !

Item was added:
+ ----- Method: TextStopConditions>>setStops: (in category 'initialize-release') -----
+ setStops: stopArray
+ stops := stopArray copyFrom: 1 to: 258.
+ endOfRun := stopArray at: 257.
+ crossedX := stopArray at: 258.!

Item was changed:
  ----- Method: CharacterScanner>>initializeStringMeasurer (in category 'initialize') -----
  initializeStringMeasurer
+ | stops |
+ stops := Array new: 258.
+ stops at: CrossedX put: #crossedX.
+ stops at: EndOfRun put: #endOfRun.
+ stopConditions := TextStopConditions new setStops: stops.
- stopConditions := Array new: 258.
- stopConditions at: CrossedX put: #crossedX.
- stopConditions at: EndOfRun put: #endOfRun.
  !

Item was added:
+ ----- Method: TextStopConditions>>postCopy (in category 'copying') -----
+ postCopy
+ stops := stops copy!

Item was added:
+ ----- Method: TextStopConditions>>initialize (in category 'initialize-release') -----
+ initialize
+ stops := Array new: 256.
+ crossedX := #crossedX.
+ endOfRun := #endOfRun!

Item was added:
+ ----- Method: TextStopConditions>>crossedX (in category 'accessing') -----
+ crossedX
+ ^crossedX!

Item was added:
+ ----- Method: TextStopConditions>>at: (in category 'accessing') -----
+ at: anInteger
+ ^stops at: anInteger!

Item was added:
+ ----- Method: TextStopConditions>>crossedX: (in category 'accessing') -----
+ crossedX: aSymbolOrNil
+ crossedX := aSymbolOrNil!

Item was added:
+ Object subclass: #TextStopConditions
+ instanceVariableNames: 'stops crossedX endOfRun'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Graphics-Text'!

Item was changed:
  (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package"
+ StrikeFont installDejaVu.
+ CharacterScanner initialize.'!
- StrikeFont installDejaVu'!

Item was added:
+ ----- Method: TextStopConditions>>endOfRun: (in category 'accessing') -----
+ endOfRun: aSymbolOrNil
+ endOfRun := aSymbolOrNil!

Item was added:
+ ----- Method: TextStopConditions>>endOfRun (in category 'accessing') -----
+ endOfRun
+ ^endOfRun!

Item was added:
+ ----- Method: TextStopConditions>>at:put: (in category 'accessing') -----
+ at: anInteger put: aSymbolOrNil
+ ^stops at: anInteger put: aSymbolOrNil!