The Trunk: System-topa.769.mcz

Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.769.mcz

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

Name: System-topa.769
Author: topa
Time: 8 October 2015, 9:14:34.222 pm
UUID: d3a735df-f3e3-4c1b-8398-b0dd65da8a7b
Ancestors: System-topa.768

Remind future me to remove CrLfFileStream from the #initializeStartUpList

=============== Diff against System-topa.768 ===============

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..."
+ self flag: #'revisit in Squeak 5.3'.
  #(
  SmallInteger
  Delay
  DisplayScreen
  Cursor
  InputSensor
  ProcessorScheduler  "Starts low space watcher and bkground."
  FileDirectory  "Enables file stack dump and opens sources."
  ShortIntegerArray
  ShortRunArray
+ CrLfFileStream "Remove this in Squeak 5.3"
- 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].
  ].
  !