[squeak-dev] 3.10 image
Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Tue Jul 15 12:06:17 UTC 2008
El 7/15/08 8:58 AM, "stan shepherd" <squeak414 at free.fr> escribió:
> Hi, could someone point me to where to find ReleaseBuilderDeveloper please?
>
> Thanks, ...Stan
I take the Ramon cleanup and adapt to Release Builder.
Also I suggest made a method , I attach here
Edgar
-------------- next part --------------
'From Squeak3.11alpha of 17 May 2008 [latest update: #7068] on 30 May 2008 at 10:16:25 am'!
!SmalltalkImage methodsFor: 'image cleanup' stamp: 'edc 5/30/2008 10:16'!
cleanup
"SmalltalkImage current cleanup"
| tasks |
tasks := OrderedCollection new
add: [Smalltalk removeEmptyMessageCategories];
add: [Workspace
allSubInstancesDo: [:each | each setBindings: Dictionary new]];
add: [Undeclared removeUnreferencedKeys];
add: [Categorizer sortAllCategories];
add: [Symbol compactSymbolTable];
add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
add: [HandMorph releaseCachedState;
initForEvents.self fixObsoleteReferences];
add: [Smalltalk forgetDoIts.
DataStream initialize.
Behavior flushObsoleteSubclasses.
"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].Smalltalk garbageCollectMost];
yourself.
Utilities
informUserDuring: [:bar | tasks
do: [:block |
bar value: block printString.
[block value]
on: Error
do: [:error | Transcript show: error;
cr]]].
SystemNavigation default obsoleteClasses isEmpty
ifTrue: [SmalltalkImage current saveSession]
ifFalse: [SystemNavigation default obsoleteClasses
do: [:each | .self halt.[PointerFinder on: each]
on: Error
do: [:error | Transcript show: error; cr]]]
! !
More information about the Squeak-dev
mailing list
|