I have a small script to build automatically DrGeo release.

In this script, I need to set the Author fullName to the value
'DrGeoUserScript'. I have enclosed below the used script.

Strangely, the author fullname is not persisted in the image, although I
set the author name just before the snapshot of the prepared image.

Any idea ?


-- 
Dr. Geo, to discover geometry on Linux, Windows, MAC and XO
http://community.ofset.org/index.php/DrGeo
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.

DrGeo addStartUp.
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
Locale activated: true.

WorldState desktopMenuTitle: 'Dr. Geo'.
WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.

ConfigurationOfMetacello unload.
DrGDistroInfo cleanUpForRelease.
SmalltalkImage checkSourcesFileAvailability: false.
SmalltalkImage checkChangesFileAvailability: false.

Smalltalk saveAs: 'drgeo'.
World submorphs 
   select: [:m | m class == (Smalltalk at: #DrGeoWindow)]
   thenDo: [:drMorph | drMorph deleteWithoutConfirmation ].

DrGDefault initialize.

Author fullName: 'DrGeoUser'.
Smalltalk snapshot: true andQuit: true.

"Done"

Reply via email to