fixed #2367

(changing project source after exporting to disk)

HISTORY.md

@@ -70,6 +70,7 @@
 ### 2019-04-10
 * Objects: took out MAP and FOREACH primitives (available in dev mode)
 * Objects: fixed #2371 (playing sounds in the stage)
+* GUI: fixed #2367 (changing project source after exporting to disk)
 
 ### 2019-04-09
 * Blocks, Objects, Threads: new "getImageAttribute" reporter primitive

snap.html

@@ -9,7 +9,7 @@
         <script type="text/javascript" src="src/blocks.js?version=2019-04-09"></script>
         <script type="text/javascript" src="src/threads.js?version=2019-04-09"></script>
         <script type="text/javascript" src="src/objects.js?version=2019-04-10"></script>
-        <script type="text/javascript" src="src/gui.js?version=2019-03-25"></script>
+        <script type="text/javascript" src="src/gui.js?version=2019-04-10"></script>
         <script type="text/javascript" src="src/paint.js?version=2019-02-22"></script>
         <script type="text/javascript" src="src/lists.js?version=2019-02-07"></script>
         <script type="text/javascript" src="src/byob.js?version=2019-02-15"></script>

src/gui.js

@@ -75,7 +75,7 @@ isRetinaSupported, SliderMorph, Animation, BoxMorph, MediaRecorder*/
 
 // Global stuff ////////////////////////////////////////////////////////
 
-modules.gui = '2019-March-25';
+modules.gui = '2019-April-10';
 
 // Declarations
 
@@ -6045,10 +6045,19 @@ ProjectDialogMorph.prototype.init = function (ide, task) {
     this.key = 'project' + task;
 
     // build contents
+    if (task === 'open' && this.source === 'disk') {
+        // give the user a chance to switch to another source
+        this.source = null;
+        this.buildContents();
+        this.projectList = [];
+        this.listField.hide();
+        this.source = 'disk';
+    } else {
         this.buildContents();
         this.onNextStep = function () { // yield to show "updating" message
             myself.setSource(myself.source);
         };
+    }
 };
 
 ProjectDialogMorph.prototype.buildContents = function () {