# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 938019550 -7200
# Node ID 49777692d30980a76980fb7414d4d3ce9e57d371
# Parent  90dee52628ec00d9ce5dc855cde9e035e624c92e
checkin from browser

diff -r 90dee52628ec -r 49777692d309 ProjectBrowser.st
--- 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