The Trunk: System-dtl.792.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.792.mcz

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

Name: System-dtl.792
Author: dtl
Time: 2 February 2016, 12:40:33.790655 pm
UUID: 8f3c142b-21ca-4f91-83e8-e474425bd4ce
Ancestors: System-dtl.791

Remove last references to InputSensor, which has bee replaced by EventSensor

=============== Diff against System-dtl.791 ===============

Item was changed:
  ----- Method: SmalltalkImage class>>initializeShutDownList (in category 'class initialization') -----
  initializeShutDownList
  "SmalltalkImage initialize"
 
  | oldList |
  oldList := ShutDownList.
  ShutDownList := OrderedCollection new.
  "These get processed from the bottom up..."
  #(
  Delay
  DisplayScreen
+ EventSensor
- InputSensor
  Form
  ControlManager
  PasteUpMorph
  StrikeFont
  Color
  FileDirectory
  SoundPlayer
  HttpUrl
  Password
  PWS
  MailDB
  ImageSegment
  ) do:[:clsName|
  Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToShutDownList: cls].
  ].
 
  oldList ifNotNil: [oldList reverseDo: [:className | Smalltalk at: className
  ifPresent: [:theClass | Smalltalk addToShutDownList: theClass]]].
  !

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
+ EventSensor
- 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"
  ) 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].
  ].
  !