'From Squeak3.11alpha of 13 February 2010 [latest update: #9483] on 9 March 2010 at 11:11:23 am'! !AppRegistry class methodsFor: 'class initialization' stamp: 'ar 2/27/2010 11:38'! cleanUp "AppRegistry cleanUp" self removeObsolete.! ! !ChangeSet class methodsFor: 'current changeset' stamp: 'ar 2/26/2010 23:01'! cleanUp: aggressive "Only delete change sets when being aggressive" aggressive ifTrue:[ ChangeSet removeChangeSetsNamedSuchThat: [:cs| cs name ~= ChangeSet current name]. ChangeSet current clear. ChangeSet current name: 'Unnamed1'. ].! ! !DataStream class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:02'! cleanUp "Re-initialize DataStream to avoid hanging onto obsolete classes" self initialize! ! !EventManager class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:01'! cleanUp: aggressive "Dump all ActionMaps but only when we're aggressively cleaning" aggressive ifTrue:[ActionMaps := nil].! ! !ExternalDropHandler class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:02'! cleanUp "Reset and reinstall the drop handlers" self resetRegisteredHandlers. self registerStandardExternalDropHandlers.! ! !FileServices class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:02'! cleanUp "Remove obsolete services" self removeObsolete! ! !NaturalLanguageFormTranslator class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:03'! cleanUp "Flush caches" CachedTranslations := nil! ! !NaturalLanguageTranslator class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:03'! cleanUp "Flush caches" CachedTranslations := nil. AllKnownPhrases := nil.! ! !Project methodsFor: 'displaying' stamp: 'dtl 2/27/2010 10:33'! resetDisplay "Bring the display to a usable state after handling primitiveError." self subclassResponsibility! ! !Project methodsFor: 'utilities' stamp: 'dtl 2/27/2010 10:54'! handleFatalDrawingError: errMsg "Handle a fatal drawing error." self error: errMsg "overridden in MorphicProject" ! ! !Project methodsFor: 'utilities' stamp: 'dtl 2/27/2010 09:52'! setAsBackground: aForm "Set aForm as a background image." self subclassResponsibility ! ! !Project methodsFor: 'protocols' stamp: 'dtl 2/27/2010 10:18'! currentVocabulary "Answer the currently-prevailing default vocabulary." self subclassResponsibility! ! !Project class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:01'! cleanUp: agressive "Remove all projects but only when cleaning aggressively" agressive ifTrue:[self removeAllButCurrent].! ! !ProjectHistory class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:05'! cleanUp "Re-initialize current history" self currentHistory initialize! ! !SpaceTally methodsFor: 'fileOut' stamp: 'ar 2/26/2010 18:02'! printSpaceAnalysis "SpaceTally new printSpaceAnalysis" ^ self printSpaceAnalysis: 1 on: 'STspace.text'! ! !SystemOrganizer class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:01'! cleanUp: agressive "Remove empty categories when cleaning aggressively" agressive ifTrue:[SystemOrganization removeEmptyCategories]. ! ! !Utilities class methodsFor: 'class initialization' stamp: 'ar 2/26/2010 23:01'! cleanUp: agressive "Nuke the scraps book when cleaning aggressively" agressive ifTrue:[ScrapsBook := nil].! !