The Trunk: ST80-nice.154.mcz

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

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

Name: ST80-nice.154
Author: nice
Time: 4 October 2013, 10:17:32.034 pm
UUID: 4522e1f4-5ea4-41f9-b2bf-9cc06ab5a07a
Ancestors: ST80-nice.153

Move TextLineInterval from Graphics to ST80-Support

=============== Diff against ST80-nice.153 ===============

Item was added:
+ Interval subclass: #TextLineInterval
+ instanceVariableNames: 'internalSpaces paddingWidth lineHeight baseline'
+ classVariableNames: ''
+ poolDictionaries: 'TextConstants'
+ category: 'ST80-Support'!
+
+ !TextLineInterval commentStamp: '<historical>' prior: 0!
+ My instances specify the starting and stopping points in a String of a composed line. The step is always 1.!

Item was added:
+ ----- Method: TextLineInterval class>>start:stop:internalSpaces:paddingWidth: (in category 'instance creation') -----
+ start: startInteger stop: stopInteger internalSpaces: spacesInteger paddingWidth: padWidthInteger
+ "Answer an instance of me with the arguments as the start, stop points,
+ number of spaces in the line, and width of the padding."
+ | newSelf |
+ newSelf := super from: startInteger to: stopInteger by: 1.
+ ^newSelf internalSpaces: spacesInteger paddingWidth: padWidthInteger!

Item was added:
+ ----- Method: TextLineInterval>>= (in category 'comparing') -----
+ = line
+
+ self species = line species
+ ifTrue: [^((start = line first and: [stop = line last])
+ and: [internalSpaces = line internalSpaces])
+ and: [paddingWidth = line paddingWidth]]
+ ifFalse: [^false]!

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

Item was added:
+ ----- Method: TextLineInterval>>internalSpaces (in category 'accessing') -----
+ internalSpaces
+ "Answer the number of spaces in the line."
+
+ ^internalSpaces!

Item was added:
+ ----- Method: TextLineInterval>>internalSpaces: (in category 'accessing') -----
+ internalSpaces: spacesInteger
+ "Set the number of spaces in the line to be spacesInteger."
+
+ internalSpaces := spacesInteger!

Item was added:
+ ----- Method: TextLineInterval>>internalSpaces:paddingWidth: (in category 'private') -----
+ internalSpaces: spacesInteger paddingWidth: padWidthInteger
+
+ internalSpaces := spacesInteger.
+ paddingWidth := padWidthInteger!

Item was added:
+ ----- Method: TextLineInterval>>justifiedPadFor: (in category 'scanning') -----
+ justifiedPadFor: spaceIndex
+ "Compute the width of pad for a given space in a line of justified text."
+
+ | pad |
+ internalSpaces = 0 ifTrue: [^0].
+ pad := paddingWidth // internalSpaces.
+ spaceIndex <= (paddingWidth \\ internalSpaces)
+ ifTrue: [^pad + 1]
+ ifFalse: [^pad]!

Item was added:
+ ----- Method: TextLineInterval>>justifiedPadFor:font: (in category 'scanning') -----
+ justifiedPadFor: spaceIndex font: aFont
+ "Compute the width of pad for a given space in a line of justified text."
+
+ | pad |
+ internalSpaces = 0 ifTrue: [^0].
+ ^(aFont notNil and:[aFont isSubPixelPositioned])
+ ifTrue:[paddingWidth * 1.0 / internalSpaces]
+ ifFalse:[
+ pad := paddingWidth // internalSpaces.
+ spaceIndex <= (paddingWidth \\ internalSpaces)
+ ifTrue: [pad + 1]
+ ifFalse: [pad]]!

Item was added:
+ ----- Method: TextLineInterval>>justifiedTabDeltaFor: (in category 'scanning') -----
+ justifiedTabDeltaFor: spaceIndex
+ "Compute the delta for a tab in a line of justified text, so tab falls
+ somewhere plausible when line is justified."
+
+ | pad extraPad |
+ internalSpaces = 0 ifTrue: [^0].
+ pad := paddingWidth // internalSpaces.
+ extraPad := paddingWidth \\ internalSpaces.
+ spaceIndex <= extraPad
+ ifTrue: [^spaceIndex * (pad + 1)]
+ ifFalse: [^extraPad * (pad + 1) + (spaceIndex - extraPad * pad)]!

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

Item was added:
+ ----- Method: TextLineInterval>>lineHeight:baseline: (in category 'private') -----
+ lineHeight: height baseline: ascent
+
+ lineHeight := height.
+ baseline := ascent!

Item was added:
+ ----- Method: TextLineInterval>>paddingWidth (in category 'accessing') -----
+ paddingWidth
+ "Answer the amount of space to be added to the font."
+
+ ^paddingWidth!

Item was added:
+ ----- Method: TextLineInterval>>paddingWidth: (in category 'accessing') -----
+ paddingWidth: padWidthInteger
+ "Set the amount of space to be added to the font to be padWidthInteger."
+
+ paddingWidth := padWidthInteger!

Item was added:
+ ----- Method: TextLineInterval>>slide: (in category 'updating') -----
+ slide: delta
+ "Change the starting and stopping points of the line by delta."
+
+ start := start + delta.
+ stop := stop + delta!

Item was added:
+ ----- Method: TextLineInterval>>stop: (in category 'accessing') -----
+ stop: stopInteger
+ "Set the stopping point in the string of the line to be stopInteger."
+
+ stop := stopInteger!