Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.691.mcz==================== Summary ====================
Name: System-eem.691
Author: eem
Time: 19 November 2014, 12:10:12.44 pm
UUID: 6751cad7-c8f9-474c-ac0f-73fce86adf49
Ancestors: System-cmm.690
Add SmallInteger to the front of the start-up list
defined by initializeStartUpList.
=============== Diff against System-cmm.690 ===============
Item was changed:
----- Method: SmalltalkImage class>>initializeStartUpList (in category 'class initialization') -----
initializeStartUpList
"SmalltalkImage initialize"
| oldList |
oldList := StartUpList.
StartUpList := OrderedCollection new.
"These get processed from the top down..."
#(
+ SmallInteger
Delay
DisplayScreen
Cursor
InputSensor
ProcessorScheduler "Starts low space watcher and bkground."
FileDirectory "Enables file stack dump and opens sources."
ShortIntegerArray
ShortRunArray
CrLfFileStream
) do:[:clsName|
Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls].
].
oldList ifNotNil: [oldList do: [:className | Smalltalk at: className
ifPresent: [:theClass | Smalltalk addToStartUpList: theClass]]].
#(
ImageSegment
PasteUpMorph
ControlManager
) do:[:clsName|
Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls].
].
!