Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.324.mcz==================== Summary ====================
Name: Collections-nice.324
Author: nice
Time: 28 February 2010, 7:43:00.668 pm
UUID: 3bcc36b5-5ee2-c040-bc70-021f3ddfdc99
Ancestors: Collections-ar.323
Fix endOfRun and crossedX encodings in paragraph composition - Part 4 (clean-up)
EndOfRun and CrossedX now are unused TextConstants.
=============== Diff against Collections-ar.323 ===============
Item was changed:
----- Method: Text class>>initTextConstants (in category 'class initialization') -----
initTextConstants
"Initialize constants shared by classes associated with text display, e.g.,
Space, Tab, Cr, Bs, ESC."
"1/24/96 sw: in exasperation and confusion, changed cmd-g mapping from 231 to 232 to see if I could gain any relief?!!"
| letter varAndValue tempArray width |
"CtrlA..CtrlZ, Ctrla..Ctrlz"
letter := $A.
#( 212 230 228 196 194 226 241 243 214 229 200 217 246
245 216 202 210 239 211 240 197 198 209 215 242 231
1 166 228 132 130 12 232 179 150 165 136 153 182
14 15 138 17 18 19 11 21 134 145 151 178 167 ) do:
[:kbd |
TextConstants at: ('Ctrl', letter asSymbol) asSymbol put: kbd asCharacter.
letter := letter == $Z ifTrue: [$a] ifFalse: [(letter asciiValue + 1) asCharacter]].
varAndValue := #(
Space 32
Tab 9
CR 13
Enter 3
BS 8
BS2 158
ESC 160
Clear 173
).
varAndValue size odd ifTrue: [self error: 'unpaired text constant'].
(2 to: varAndValue size by: 2) do:
[:i | TextConstants at: (varAndValue at: i - 1) put: (varAndValue at: i) asCharacter].
varAndValue := #(
CtrlDigits (159 144 143 128 127 129 131 180 149 135)
CtrlOpenBrackets (201 7 218 249 219 15)
"lparen gottn by ctrl-:= = 201; should be 213 but can't type that on Mac"
- "location of non-character stop conditions"
- EndOfRun 257
- CrossedX 258
-
"values for alignment"
LeftFlush 0
RightFlush 1
Centered 2
Justified 3
"subscripts for a marginTabsArray tuple"
LeftMarginTab 1
RightMarginTab 2
"font faces"
Basal 0
Bold 1
Italic 2
"in case font doesn't have a width for space character"
"some plausible numbers-- are they the right ones?"
DefaultSpace 4
DefaultTab 24
DefaultLineGrid 16
DefaultBaseline 12
DefaultFontFamilySize 3 "basal, bold, italic"
).
varAndValue size odd ifTrue: [self error: 'unpaired text constant'].
(2 to: varAndValue size by: 2) do:
[:i | TextConstants at: (varAndValue at: i - 1) put: (varAndValue at: i)].
TextConstants at: #DefaultRule put: Form over.
TextConstants at: #DefaultMask put: Color black.
width := Display width max: 720.
tempArray := Array new: width // DefaultTab.
1 to: tempArray size do:
[:i | tempArray at: i put: DefaultTab * i].
TextConstants at: #DefaultTabsArray put: tempArray.
tempArray := Array new: (width // DefaultTab) // 2.
1 to: tempArray size do:
[:i | tempArray at: i put: (Array with: (DefaultTab*i) with: (DefaultTab*i))].
TextConstants at: #DefaultMarginTabsArray put: tempArray.
"Text initTextConstants "!
Locked
