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