World submorphsDo: #delete.

[
Gofer new
  url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
  package: 'Athens-Core';
  package: 'Athens-Text';
  package: 'Athens-Balloon';
  package: 'Athens-Morphic';
  package: 'Athens-CairoPools';
  package: 'Athens-Cairo';
  load.

Gofer new
   url: 'http://smalltalkhub.com/mc/HilaireFernandes/DrGeo/main';
   package: 'ConfigurationOfDrGeo';
   load.
((Smalltalk at: #ConfigurationOfDrGeo) project version: #development) load.


] on: Warning do: [:w | w resume ].
!

Author uniqueInstance fullName: 'Mr.Cleaner'.
	
	FreeTypeFontProvider current initialize.
	EmbeddedFreeTypeFontInstaller initialize.
	self class environment at: #MetacelloProjectRegistration ifPresent: [ :class | class resetRegistry ].
	SystemNavigation new
		allObjectsDo: [ :each | 
			((each respondsTo: #releaseCachedState) and: [ (each isKindOf: RubAbstractTextArea) not ])
				ifTrue: [ each releaseCachedState ] ].
	
	Smalltalk organization sortCategories.
	Smalltalk garbageCollect.
	Smalltalk cleanOutUndeclared. 
	Smalltalk fixObsoleteReferences.
	Smalltalk cleanUp: true except: #() confirming: false.	


DrGDefault beWorkstation; beSystem.

DrGeo new.