Re: [Pharo-project] [Pharo 1.4] Please test!
On Apr 4, 2012, at 5:23 PM, Hilaire Fernandes wrote:
Also clean up is not as good as before, cleaned image is still 22MB (in contrast to about 10MB with 1.3)
This is strange... ScriptLoader new cleanUpForProduction generates a 8.4 MB Image... What you should check is that #cleanUpForProduction changes a bit, it is much simpler now (I move more stuff to the #cleanUp: methods and we cleaned up the image in general a little): cleanUpForProduction "self new cleanUpForProduction" "trim MC ancestory information" MCVersionInfo allInstances do: [ :each | each instVarNamed: 'ancestors' put: nil ]. "delete logo" PolymorphSystemSettings showDesktopLogo: false. "unload packages" Smalltalk globals at: #SUnitUnloader ifPresent:[ :unloader | unloader new unloadAll ]. (MCPackage named: 'HelpSystem-Core') unload. (MCPackage named: 'FixUnderscores') unload. (MCPackage named: 'Deprecated14') unload. self cleanUpForRelease. (MCPackage named: self theScriptLoaderPackageName) unload. Smalltalk cleanUp: true except: #() confirming: false. Smalltalk garbageCollect. -- Marcus Denker -- http://marcusdenker.de
Le 04/04/2012 17:30, Marcus Denker a écrit :
This is strange...
ScriptLoader new cleanUpForProduction
generates a 8.4 MB Image...
Great. Hilaire -- Dr. Geo -- http://www.drgeo.eu
But still I have to hand delete SystemProgressMorph after each use: World submorphs select: [:m | m class == (Smalltalk at: #SystemProgressMorph)] thenDo: [:morph | morph delete]. Strange. It only occure after my installation of DrGeo and clean up. I will track the problem Here is my image building script, may be I am installed too old package: Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfOCompletion'; load. ((Smalltalk at: #ConfigurationOfOCompletion) project version: '1.4') load. Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfShout'; load. ((Smalltalk at: #ConfigurationOfShout) project version: '1.3') load. Gofer new url: 'http://www.squeaksource.com/DrGeoII'; package: 'ConfigurationOfDrGeo'; load. (Smalltalk at: #ConfigurationOfDrGeo ) perform:#load. Gofer new url: 'http://www.squeaksource.com/PharoNonCorePackages'; package: 'ConfigurationOfGettext'; load. (Smalltalk at: #ConfigurationOfGettext) perform:#load. UIThemeWatery2 resetDefaultSettings. PolymorphSystemSettings uiThemeClass: UIThemeWatery2. TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'. TextDomainManager registerCategoryPrefix: 'pharo' domain: 'pharo'. Locale activated: true. WorldState desktopMenuTitle: 'Dr. Geo'. WorldState desktopMenuPragmaKeyword: 'drgeoMenu'. "Clean for production then install font, and clean again to remove the unused fonts" "DrGDistroInfo cleanUpForRelease." ScriptLoader new cleanUpForProduction. Gofer new url: 'http://www.squeaksource.com/DejaVu'; package: 'DejaVuBitmapFonts'; load. (Smalltalk at: #DejaVuHolder) perform: #installSizes: with: #(9 11). StandardFonts setDefaultFonts: #( (codeFont: 'Bitmap DejaVu Sans Regular' 11) (listFont: 'Bitmap DejaVu Sans Regular' 11) (menuFont: 'Bitmap DejaVu Sans Regular' 11) (windowTitleFont: 'Bitmap DejaVu Sans Regular' 11) (balloonFont: 'Bitmap DejaVu Sans Regular' 9) (haloFont: 'Bitmap DejaVu Sans Regular' 9) (buttonFont: 'Bitmap DejaVu Sans Regular' 11) (defaultFont: 'Bitmap DejaVu Sans Regular' 11)). SystemOrganization removeSystemCategory: #DejaVuBitmapFonts. StrikeFont cleanUp. SmalltalkImage checkSourcesFileAvailability: false. SmalltalkImage checkChangesFileAvailability: false. DrGDefault beWorkstation. Smalltalk saveAs: 'drgeo'. World submorphs select: [:m | m class == (Smalltalk at: #DrGeoWindow)] thenDo: [:drMorph | drMorph deleteWithoutConfirmation ]. Smalltalk condenseChanges. Author fullName: 'DrGeoUser'. Smalltalk snapshot: true andQuit: true. "Done" Hilaire Le 05/04/2012 10:51, Hilaire Fernandes a écrit :
Le 04/04/2012 17:30, Marcus Denker a écrit :
This is strange...
ScriptLoader new cleanUpForProduction
generates a 8.4 MB Image...
Great.
Hilaire
-- Dr. Geo -- http://www.drgeo.eu
On Apr 5, 2012, at 11:07 AM, Hilaire Fernandes wrote:
But still I have to hand delete SystemProgressMorph after each use:
World submorphs select: [:m | m class == (Smalltalk at: #SystemProgressMorph)] thenDo: [:morph | morph delete].
Strange.
Yes this is strange.
It only occure after my installation of DrGeo and clean up. I will track the problem
Here is my image building script, may be I am installed too old package:
Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfOCompletion'; load. ((Smalltalk at: #ConfigurationOfOCompletion) project version: '1.4') load.
Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfShout'; load. ((Smalltalk at: #ConfigurationOfShout) project version: '1.3') load.
Gofer new url: 'http://www.squeaksource.com/DrGeoII'; package: 'ConfigurationOfDrGeo'; load. (Smalltalk at: #ConfigurationOfDrGeo ) perform:#load.
Gofer new url: 'http://www.squeaksource.com/PharoNonCorePackages'; package: 'ConfigurationOfGettext'; load. (Smalltalk at: #ConfigurationOfGettext) perform:#load.
UIThemeWatery2 resetDefaultSettings. PolymorphSystemSettings uiThemeClass: UIThemeWatery2.
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'. TextDomainManager registerCategoryPrefix: 'pharo' domain: 'pharo'. Locale activated: true.
WorldState desktopMenuTitle: 'Dr. Geo'. WorldState desktopMenuPragmaKeyword: 'drgeoMenu'.
"Clean for production then install font, and clean again to remove the unused fonts"
"DrGDistroInfo cleanUpForRelease." ScriptLoader new cleanUpForProduction.
Gofer new url: 'http://www.squeaksource.com/DejaVu'; package: 'DejaVuBitmapFonts'; load.
(Smalltalk at: #DejaVuHolder) perform: #installSizes: with: #(9 11). StandardFonts setDefaultFonts: #( (codeFont: 'Bitmap DejaVu Sans Regular' 11) (listFont: 'Bitmap DejaVu Sans Regular' 11) (menuFont: 'Bitmap DejaVu Sans Regular' 11) (windowTitleFont: 'Bitmap DejaVu Sans Regular' 11) (balloonFont: 'Bitmap DejaVu Sans Regular' 9) (haloFont: 'Bitmap DejaVu Sans Regular' 9) (buttonFont: 'Bitmap DejaVu Sans Regular' 11) (defaultFont: 'Bitmap DejaVu Sans Regular' 11)). SystemOrganization removeSystemCategory: #DejaVuBitmapFonts. StrikeFont cleanUp.
SmalltalkImage checkSourcesFileAvailability: false. SmalltalkImage checkChangesFileAvailability: false.
DrGDefault beWorkstation. Smalltalk saveAs: 'drgeo'. World submorphs select: [:m | m class == (Smalltalk at: #DrGeoWindow)] thenDo: [:drMorph | drMorph deleteWithoutConfirmation ].
Smalltalk condenseChanges. Author fullName: 'DrGeoUser'. Smalltalk snapshot: true andQuit: true.
"Done"
Hilaire
Le 05/04/2012 10:51, Hilaire Fernandes a écrit :
Le 04/04/2012 17:30, Marcus Denker a écrit :
This is strange...
ScriptLoader new cleanUpForProduction
generates a 8.4 MB Image...
Great.
Hilaire
-- Dr. Geo -- http://www.drgeo.eu
You may want to add these clean-up as well. Strangely, 'FileSystem-Tests-Disk' and 'FileSystem-Tests-Memory' are not cleaned up. Although there is instance class in memory. May be order matter in cleaning and those need to be cleaned first. (MCPackage named: 'Announcements-Help') unload. (MCPackage named: 'FileSystem-Tests-Core') unload. (MCPackage named: 'FileSystem-Tests-AnsiStreams') unload. (MCPackage named: 'FileSystem-Tests-Disk') unload. (MCPackage named: 'FileSystem-Tests-Memory') unload. (MCPackage named: 'Metacello-Help') unload. (MCPackage named: 'Regex-Help') unload. Le 04/04/2012 17:30, Marcus Denker a écrit :
What you should check is that #cleanUpForProduction changes a bit, it is much simpler now (I move more stuff to the #cleanUp: methods and we cleaned up the image in general a little):
-- Dr. Geo -- http://www.drgeo.eu
participants (3)
-
Hilaire Fernandes -
Marcus Denker -
Stéphane Ducasse