[Seaside] prototype shrinking script for seaside

[Bruce ONeel]

Uh, untested, since I am just learning seaside, so, use at your own 
risk

Pay attention to the commented out lines...


"Cleanup"
 

"p := (Project allProjects) at: 2"
"Project deletingProject: p"
CommandHistory allInstancesDo: [:c | c resetCommandHistory].
ChangeSet allInstancesDo: [:cs | cs zapHistory].
Smalltalk reclaimDependents.

ChangeSorter removeChangeSetsNamedSuchThat: [:aName | aName first
isDigit].
Smalltalk zapAllOtherProjects.

Smalltalk at: #Wonderland ifPresent: [:cls | cls
removeActorPrototypesFromSystem]. 
Player freeUnreferencedSubclasses.
MorphicModel removeUninstantiatedModels.
Utilities classPool at: #ScrapsBook put: nil.
ProjectHistory currentHistory initialize.
Project rebuildAllProjects.
"Smalltalk discardVMConstruction."
Smalltalk discardWonderland.
SystemOrganization categories do: [:cat | (cat beginsWith: 'Speech')
ifTrue: [SystemOrganization removeSystemCategory: cat]].

Smalltalk discardFFI.
Smalltalk discardFlash.
Smalltalk discardMIDI.
Smalltalk discardSoundSynthesis.
Smalltalk discardSoundAndSpeech.
Smalltalk discard3D.
SystemOrganization categories do: [:cat | (cat beginsWith: 'Genie')
ifTrue: [SystemOrganization removeSystemCategory: cat]].
SystemOrganization categories do: [:cat | (cat beginsWith: 'StarSqueak')
ifTrue: [SystemOrganization removeSystemCategory: cat]].
SystemOrganization categories do: [:cat | (cat beginsWith: 'Balloon')
ifTrue: [SystemOrganization removeSystemCategory: cat]].


SystemOrganization categories do: [:cat | (cat beginsWith: 'Morphic')
ifTrue: [SystemOrganization removeSystemCategory: cat]].
SystemOrganization categories do: [:cat | (cat beginsWith: 'Movies')
ifTrue: [SystemOrganization removeSystemCategory: cat]].

Smalltalk condenseChanges