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