Development

Author: graham-trott

iwsy/iwsy.js

@@ -543,16 +543,21 @@ const IWSY = (container, text) => {
         }
     };
 
-    // Scan the script
-    const scan = () => {
-        script.speed = `scan`;
+    // Remove all the blocks from the player
+    const removeBlocks = () => {
         for (const name in script.blocks) {
             const block = script.blocks[name];
             if (block.element) {
                 container.removeChild(block.element);
                 block.element = null;
             }
         }
+    };
+
+    // Scan the script
+    const scan = () => {
+        script.speed = `scan`;
+        removeBlocks();
         doStep(script.steps[0]);
     };
 
@@ -629,6 +634,7 @@ const IWSY = (container, text) => {
 
     // Replace the script
     const setScript = newScript => {
+        removeBlocks();
         script = newScript;
         initScript();
         initBlocks();

iwsy/resources/ecs/blocks.txt

@@ -27,6 +27,7 @@
     variable Properties
     variable SelectedBlock
     variable Action
+    variable Message
     variable N
     variable B
 
@@ -205,4 +206,10 @@ SaveSelectedBlock:
     	set property BlockName of Blocks to Block
     end
     set property `blocks` of Presentation to Blocks
+
+!	Tell the parent to refresh the script
+    set Message to object
+    set property `action` of Message to `refresh`
+    set property `source` of Message to `blocks`
+    send Message to parent
 	return

iwsy/resources/ecs/content.txt

@@ -24,6 +24,7 @@
     variable ItemName
     variable SelectedItem
     variable Action
+    variable Message
     variable N
     variable B
 
@@ -173,4 +174,10 @@ SaveSelectedItem:
     	set property ItemName of Items to Item
     end
     set property `content` of Presentation to Items
+
+!	Tell the parent to refresh the script
+    set Message to object
+    set property `action` of Message to `refresh`
+    set property `source` of Message to `content`
+    send Message to parent
 	return

iwsy/resources/ecs/iwsy.txt

@@ -47,6 +47,7 @@
     variable Item
     variable CurrentScriptName
     variable Action
+    variable Source
     variable N
 
   ! The browser
@@ -318,7 +319,11 @@ L2:
     	put the message into Message
         put property `action` of Message into Action
         if Action is `goto` iwsy goto property `index` of Message
-        else if Action is `script` iwsy script property `script` of Message
+        else if Action is `refresh`
+        begin
+        	iwsy script Presentation
+            gosub to UpdateCurrentSection
+        end
     end
 	stop
 

iwsy/resources/ecs/steps.txt

@@ -934,8 +934,10 @@ SaveCurrentStep:
     end
     set element SelectedStep of Steps to CurrentStep
     set property `steps` of Presentation to Steps
+
+!	Tell the parent to refresh the script
     set Message to object
-    set property `action` of Message to `script`
-    set property `script` of Message to Presentation
+    set property `action` of Message to `refresh`
+    set property `source` of Message to `steps`
     send Message to parent
 	return