====== Packaging Workspaces ======
* There are packaging workspaces to create a base dev and packaged image on z:\jas\reddrive\packaging adn 7.5 images
* "********************************************************************************" !
"* This abt.cnf file creates the Hello World reduced runtime packaged image *" !
"********************************************************************************" !
PostStartUp !
System loadedSubApplications do: [:app | app recacheMethodPointers.]!
((EmConfigurationMap editionsFor: 'ENVY/Packager Automation') first loadWithRequiredMaps) ifFalse: [System exit]. !
| abs |
(abs := AbtBuildSpecification name: 'Hello World'
mapWithPackagingInstructions: 'ENVY/Packager Examples'
packagingInstructions: 'HelloWorldPackagingInstructions'
mapsWithAppsToPackage: #('Hello World')) isNil
ifTrue: [TranscriptTTY default show: 'Build spec is nil. See Hello World_HelloWorldPackagingInstructions.log'. System exit].
abs build.
* System loadedSubApplications do: [:app | app recacheMethodPointers.]!
(EmConfigurationMap editionsFor: 'Hello World') first load. !
" store the result of packaging. will be true if successful " !
Smalltalk at: #xyzzy put: (EpPackager packageUsingInstructions: HelloWorldPackagingInstructions withProgressMessage:
(DirectedMessage receiver: EpPackager basicNew selector: #packageApplicationsFractionComplete:progressDialog: arguments:
(Array with: 0 with: EtProgressReporter basicNew)))!
(Smalltalk at: #xyzzy) ifTrue: [TranscriptTTY default show: 'CTestPass';cr]
*
System loadedSubApplications do: [:app | app recacheMethodPointers.]!
((EmConfigurationMap editionsFor: 'ENVY/Packager Automation') first loadWithRequiredMaps) ifFalse: [System exit]. !
| abs |
(abs := AbtBuildSpecification name: 'Hello World XD'
mapWithPackagingInstructions: 'ENVY/XD Examples' "use latest map whether edition or version"
packagingInstructions: 'HelloWorldXDPackagingInstructions'
mapsWithAppsToPackage: #('Hello World') "use latest map whether edition or version"
xdFeatures: #()
xdEnvironment: (System configuredSubsystems at: 'OS')
xdImageSubsystems: nil) isNil
ifTrue: [TranscriptTTY default show: 'Build spec is nil. See Hello World_HelloWorldPackagingInstructions.log'. System exit].
abs build.
TranscriptTTY default show: 'CTestPass';cr.
*