The Trunk: System-ar.220.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.220.mcz

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

Name: System-ar.220
Author: ar
Time: 4 January 2010, 2:52:17 am
UUID: c51edc53-d04b-0e4d-bb6e-4b225951c39f
Ancestors: System-ar.219

Make Protocols unloadable: Avoid dependencies on Vocabulary.

=============== Diff against System-ar.219 ===============

Item was changed:
  ----- Method: Utilities class>>postRecompileCleanup (in category 'closure support') -----
  postRecompileCleanup "Utilities postRecompileCleanup"
  "Cleanup after loading closure bootstrap"
  | unboundMethods contexts |
  ProcessorScheduler startUp.
  WeakArray restartFinalizationProcess.
  MethodChangeRecord allInstancesDo:[:x| x noteNewMethod: nil].
  Undeclared removeUnreferencedKeys.
  Delay startTimerEventLoop.
  EventSensor install.
  WorldState allInstancesDo:[:ws| ws convertAlarms; convertStepList].
  (Workspace canUnderstand: #initializeBindings)
  ifTrue:[Workspace allInstancesDo:[:ws| ws initializeBindings]].
  ExternalDropHandler initialize.
  ScrollBar initializeImagesCache.
+ Smalltalk at: #Vocabulary ifPresent:[:aClass| aClass initialize].
- Vocabulary initialize.
  Smalltalk garbageCollect.
  GradientFillStyle initPixelRampCache.
  Smalltalk at: #ServiceGui ifPresent:[:sg| sg initialize].
  Smalltalk
  at: #SokobanMorph
  ifPresent: [:sm| sm initFields].
  Smalltalk
  at: #DebuggerMethodMap
  ifPresent: [:dmm| dmm voidMapCache].
  Smalltalk
  at: #KClipboard
  ifPresent: [:kcb| kcb clearDefault].
  Smalltalk
  at: #ServiceRegistry
  ifPresent: [:sr| sr rebuild].
  (ProcessBrowser respondsTo: #registerWellKnownProcesses) ifTrue:
  [ProcessBrowser registerWellKnownProcesses].
  Smalltalk
  at: #DebuggerMethodMap
  ifPresent: [:dmm| dmm voidMapCache].
  Smalltalk at: #ServiceRegistry ifPresent:[:cls| cls rebuild].
  Smalltalk forgetDoIts.
  Smalltalk garbageCollect.
  unboundMethods := CompiledMethod allInstances select:[:m|
  m methodClass isNil or: [m ~~ (m methodClass compiledMethodAt: m selector ifAbsent: nil)]].
  unboundMethods := unboundMethods reject:[:m| m selector isDoIt].
  unboundMethods notEmpty ifTrue:
  [(ToolSet inspect: unboundMethods) setLabel: 'Unbound Methods'].
  contexts := BlockContext allInstances.
  contexts ifNotEmpty:[contexts inspect. self inform: 'There are left-over BlockContexts'].
  (unboundMethods isEmpty and:[contexts isEmpty]) ifTrue:[
  self inform:'Congratulations - The bootstrap is now complete.'.
  ].
  !

Item was removed:
- ----- Method: Locale class>>migrateSystem (in category 'private') -----
- migrateSystem
- "Locale migrateSystem"
- "Do all the necessary operations to switch to the new Locale environment."
-
- LocaleChangeListeners := nil.
- self
- addLocalChangedListener: HandMorph;
- addLocalChangedListener: Clipboard;
- addLocalChangedListener: Vocabulary;
- addLocalChangedListener: PartsBin;
- addLocalChangedListener: Project;
- addLocalChangedListener: PaintBoxMorph;
- yourself!