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