[Pkg] The Trunk: System-fbs.557.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 4 19:35:54 UTC 2013

Frank Shearar uploaded a new version of System to project The Trunk:

==================== 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
  		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!

More information about the Packages mailing list