added a new class instance variable packagingClassName to GdkSystem.
This is the name of the packaging class in the JwxPackaging app and must be set by subclasses.
see VpSystem class»initialize for an example
initialize
super initialize.
"Assign the Configuration Map that is used to package this system."
self configMapName: 'JAS Packaging: VideoPlayback'.
self packagingClassName: 'JwxVpNT'
also need to modify packagingRulesFor: on the class side of the app that contains the *System app
aRuleCollector
initializeClassVariable: 'ConfigMapTimeStamp'
to: 'JwvJACS assignVersionTimeStampFromLoadedConfigMap'
inClassNamed: #GdkSystem.
aRuleCollector
initializeClassVariable: 'ConfigMapVersionName'
to: 'JwvJACS assignVersionNameFromLoadedConfigMap'
inClassNamed: #GdkSystem.
aRuleCollector
initializeClassVariable: 'PackagingInstructionsClassAndVersion'
to: 'JwvJACS assignPackagingInstructionsClassAndVersion'
inClassNamed: #GdkSystem.
aRuleCollector doNotReduceSubApplicationNamed: #JwcDynamicBehaviorApp
gatherVersionInfo
| packageTimeStampLocal configMapTimeStampLocal temp displayData |
displayData := WriteStream on: (String new: 512).
configMapTimeStampLocal := self fixVersionInfoData: self configMapTimeStamp.
packageTimeStampLocal := self fixVersionInfoData: self class packageTimeStamp.
displayData
cr;
nextPutAll: '-------------------------------------------------------------------';
cr;
nextPutAll: 'Configuration Map - ' , self class configMapName;
cr;
nextPutAll: ' TimeStamp - ' , configMapTimeStampLocal;
cr;
nextPutAll: ' Version - ' , self configMapVersionName;
cr;
cr;
nextPutAll: 'Package TimeStamp - ' , packageTimeStampLocal;
cr;
nextPutAll: 'Packaging Instructions - ' , self packagingInstructionsClassAndVersion;
cr;
nextPutAll: '-------------------------------------------------------------------';
cr.
^displayData contents