Strange, an install of DrGeo then clean up, make this:
(1 to: 1000) do: [:i |] displayingProgress: 'hello'
with a remnant SystemProgressMoprh on the display.
Was not occurring with previous version 1.3.
I don't override anything there.
Also clean up is not as good as before, cleaned image is still 22MB (in
contrast to about 10MB with 1.3)
Clean up script is as:
cleanUpForRelease
"self cleanUpForRelease"
| oldDicts newDicts |
MCHttpRepository clearPasswords.
"trim MC ancestory information"
MCVersionInfo allInstances do: [ :each | each instVarNamed: 'ancestors'
put: nil ].
"delete logo"
PolymorphSystemSettings showDesktopLogo: false.
"delete ScriptLoader log"
ScriptLoader resetLogStream.
Smalltalk globals at: #SUnitUnloader ifPresent:[ :unloader | unloader
new unloadAll ].
(MCPackage named: 'HelpSystem') unload.
(MCPackage named: 'ToolBuilder-Morphic') unload.
(MCPackage named: 'ToolBuilder-Kernel') unload.
(MCPackage named: 'Deprecated12') unload.
(MCPackage named: 'Deprecated13') unload.
"shrink method dictionaries."
Smalltalk garbageCollect.
MethodDictionary rehashAll.
(MCPackage named: 'HostMenus') unload.
ScriptLoader new
removeDejaVuFonts;
cleanUpForRelease;
flushCaches.
(MCPackage named: ScriptLoader new theScriptLoaderPackageName) unload.
ChangeSet removeChangeSetsNamedSuchThat: [ :each | true ].
ChangeSet resetCurrentToNewUnnamedChangeSet.
RecentMessageList cleanUp.
Smalltalk removeEmptyMessageCategories.
Smalltalk garbageCollect
Le 30/03/2012 09:26, Marcus Denker a écrit :
>
> --
> Marcus Denker -- http://marcusdenker.de
>
>
>
--
Dr. Geo -- http://www.drgeo.eu
