The Trunk: System-fbs.557.mcz

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.557.mcz

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

Name: System-fbs.557
Author: fbs
Time: 4 July 2013, 8:34:50.016 pm
UUID: dc5bb9ff-688b-5a4c-a756-c096700f9f47
Ancestors: System-fbs.556

Using #at:ifPresent: means never having to say KeyNotFound.

=============== Diff against System-fbs.556 ===============

Item was changed:
  ----- Method: SmalltalkImage>>presumedSentMessages (in category 'shrinking') -----
  presumedSentMessages   | sent |
  "Smalltalk presumedSentMessages"
 
  "The following should be preserved for doIts, etc"
  sent := IdentitySet new.
  #(compactSymbolTable rebuildAllProjects
  browseAllSelect:  lastRemoval
  scrollBarValue: vScrollBarValue: scrollBarMenuButtonPressed:
  withSelectionFrom:  to: removeClassNamed:
  dragon: hilberts: mandala: web test3 factorial tinyBenchmarks benchFib
  newDepth: restoreAfter: zapAllMethods obsoleteClasses
  removeAllUnSentMessages abandonSources removeUnreferencedKeys
  reclaimDependents zapOrganization condenseChanges browseObsoleteReferences
  subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
  methodsFor:stamp: methodsFor:stamp:prior: instanceVariableNames:
  startTimerInterruptWatcher unusedClasses) do:
  [:sel | sent add: sel].
  "The following may be sent by perform: in dispatchOnChar..."
+ Smalltalk at: #ParagraphEditor ifPresent: [:paragraphEditor |
- (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor |
  (paragraphEditor classPool at: #CmdActions) asSet do:
  [:sel | sent add: sel].
  (paragraphEditor classPool at: #ShiftCmdActions) asSet do:
  [:sel | sent add: sel]].
  ^ sent!