--- a/ProjectBrowser.st Wed Sep 22 18:26:18 1999 +0200
+++ b/ProjectBrowser.st Wed Sep 22 18:59:10 1999 +0200
@@ -113,7 +113,10 @@
'Package delivery into a zip archive (for win32)'
#deliverBinary
-'Create and deliver a compiled binary (classLibrary) - only possible for the running systems architecture.'
+'Create and deliver as compiled binary (classLibrary) - will only execute on the running systems architecture.'
+
+#deliverByteCode
+'Create and deliver as bytecode - portable across architectures.'
#deliverLoadAll
'Deliver a loadAll script file, which files-In the other files.'
@@ -475,6 +478,15 @@
#translateLabel: true
)
#(#CheckBoxSpec
+ #label: 'Bytecode Binary'
+ #name: 'CheckBox1'
+ #layout: #(#LayoutFrame 0 0.0 39 0 0 1.0 61 0)
+ #activeHelpKey: #deliverByteCode
+ #tabable: true
+ #model: #deliverByteCode
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
#label: 'Compiled Binary (.dll / .so)'
#name: 'CheckBox1'
#layout: #(#LayoutFrame 0 0.0 39 0 0 1.0 61 0)
@@ -1767,9 +1779,15 @@
#enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
)
#(#MenuItem
- #label: 'Binary class library'
+ #label: 'Binary class library (non portable)'
#translateLabel: true
- #value: #buildClassLibrary
+ #value: #buildCompiledClassLibrary
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Bytecode class library (portable)'
+ #translateLabel: true
+ #value: #buildByteCodeClassLibrary
#enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
)
#(#MenuItem
@@ -2305,6 +2323,20 @@
"Created: / 23.3.1999 / 14:01:09 / cg"
!
+deliverByteCode
+ "automatically generated by UIPainter ..."
+
+ |holder|
+
+ (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
+ builder aspectAt:#deliverByteCode put:(holder := ValueHolder new).
+ holder onChangeSend:#value to:[modifiedChannel value:true].
+ ].
+ ^ holder.
+
+ "Created: / 23.3.1999 / 14:18:05 / cg"
+!
+
deliverCompiledBinary
"automatically generated by UIPainter ..."
@@ -3275,6 +3307,7 @@
self repositoryDirectory value:(p repositoryDirectory).
self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
+ self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
self deliverSources value:(p propertyAt:#deliverSources) ? false.
@@ -3349,6 +3382,7 @@
p defaultNameSpace:ns.
p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
+ p propertyAt:#deliverByteCode put:self deliverByteCode value.
p propertyAt:#deliverSources put:self deliverSources value.
p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
@@ -3631,7 +3665,7 @@
!
buildAll
- |p deliverLoadAllFile|
+ |p|
p := self currentProject.
p isNil ifTrue:[
@@ -3639,15 +3673,42 @@
^ self
].
- deliverLoadAllFile := p propertyAt:#deliverLoadAllFile.
-
- deliverLoadAllFile ifTrue:[
- p createLoadAllFile
+ self withCursor:Cursor wait do:[
+ "/ prepare the building ...
+
+ (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
+ p createLoadAllFile
+ ].
+
+ (p propertyAt:#deliverSources) == true ifTrue:[
+ p createLoadAllFile
+ ].
+
+ (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
+ self buildCompiledClassLibrary
+ ].
+
+ (p propertyAt:#deliverByteCode) == true ifTrue:[
+ self buildByteCodeClassLibrary
+ ].
+
+ "/ now, deploy ...
+
+ (p propertyAt:#deliverZipArchive) == true ifTrue:[
+ p createLoadAllFile
+ ].
+
+ (p propertyAt:#deliverGZipArchive) == true ifTrue:[
+ p createLoadAllFile
+ ].
+
+
].
+
!
-buildClassLibrary
+buildCompiledClassLibrary
"compile a binary class library in the projects directory"
|p dir f diagnosticFile diagnostic error textBox|
@@ -3727,8 +3788,9 @@
^ self
].
- p createLoadAllFile.
-
+ self withCursor:Cursor wait do:[
+ p createLoadAllFile.
+ ]
!
buildMakefiles
@@ -3740,8 +3802,10 @@
^ self
].
- p createProtoMakefile.
- p createMakefile
+ self withCursor:Cursor wait do:[
+ p createProtoMakefile.
+ p createMakefile
+ ].
!
checkInProject