Packaging Dino, Etc.

1. see http://www.instantiations.com/docs/852/sg/wwhelp/wwhimpl/common/html/wwhelp.htm#href=stug428.html#9000001&single=true
2. load zoo.smalltalkbuild.instantiations (not really necessary)
3. load ENVY/Packager IC Instructions
4. modify the right class in app EpImageInstructions which in this case is EpKernelInstructions and/or EpCfsNlsInstructions and add the new app (EsLoggingFramework)
5. use 'browse packaged images' to package EpKernel as a standalone which will update method actuallyIncludedSubapplicationNames
6. if you are packaging an ic that has kernel as a 'preReq', you must package kernel first and output the image.
7. you do not need to do packagingRulesFor: except for things that you don't want reduced that have no references, or for classVars that should have some default value or be nil.
8. CFS related stuff goes in CFS…Instructions. Search for implementors of dumperOptions. There is a Windows and a Unix version.
9. change dumperOptions to put everything in the same place, then restore the previous editions before saving.
10. save this new version of the class EpKernelInstructions and app EpImageInstructions as b177 + fbCase a
11. update the EpImageInstructions app in config map Envy/packager ic instructions and save it as b177 + fbCase a
12. update Envy/packager ic instructions in the 8.50 TOC

Packaging DinoTestSuite

System productVersion, (System is64BitVM ifTrue: [ ' (64-bit)' ] ifFalse: [ ' (32-bit)' ]) -> '9.1Beta1 (32-bit)'
System imageBuildNumber -> 403

packagingRulesFor: aRuleCollector

	| map nameAndTimeStamp |

	aRuleCollector
		initializeClassVariable: 'TimeStamp'
		to: 'DateAndTime now printString'
		inClassNamed: #EsTTYSunitStartUp.

	aRuleCollector
		initializeClassVariable: 'ConfigMap'
		to: 'Dino2HeadlessSunitPackagingSpecs getNameAndTimeStamp'
		inClassNamed: #EsTTYSunitStartUp.

	aRuleCollector
		initializeClassVariable: 'BuildNumber'
		to: 'System imageBuildNumber'
		inClassNamed: #EsTTYSunitStartUp.
etc

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

getNameAndTimeStamp

	| map nameAndTimeStamp |

	nameAndTimeStamp := 'Unknown - unknown'.

	(map :=
		(EmConfigurationMap editionsFor: 'DinoSunitOneClick')
			detect: [:each | each isLoaded]
			ifNone: [])
				notNil
					ifTrue: [
						nameAndTimeStamp := (map printString , ' with time stamp ' ,
							map timeStamp printString)].

	^nameAndTimeStamp

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

EsTTYStartUp subclass: #EsTTYSunitStartUp
    classInstanceVariableNames: ''
    instanceVariableNames: 'verbose debug runningClassOnly alreadyRun failedClasses testResult excludedSelectors startTime includedSelectors '
    classVariableNames: 'BuildNumber ConfigMap TimeStamp '
    poolDictionaries: ''