Show run buttons green when running

Author: graham-trott

dist/plugins/iwsy.js

@@ -194,11 +194,28 @@ const EasyCoder_IWSY = {
 
 	value: {
 
-		compile: () => {
+		compile: (compiler) => {
+			if (compiler.tokenIs(`the`)) {
+				if (compiler.nextTokenIs(`step`)) {
+					compiler.next();
+					return {
+						domain: `iwsy`,
+						type: `step`
+					};
+				}
+			}
 			return null;
 		},
 
-		get: () => {
+		get: (program, value) => {
+			switch (value.type) {
+			case `step`:
+				return {
+					type: `constant`,
+					numeric: true,
+					content: program.iwsyStep
+				};
+			}
 			return null;
 		}
 	},

iwsy/iwsy.js

@@ -532,7 +532,7 @@ const IWSY = (container, text) => {
 
     // Set a step callback
     const onStep = onStepCB => {
-        script.onstepCB = onStepCB;
+        script.onStepCB = onStepCB;
     };
 
     // Chain to another presentation
@@ -678,6 +678,7 @@ const IWSY = (container, text) => {
         setScript,
         gotoStep,
         run,
-        stop
+        stop,
+        onStep
     };
 };

iwsy/resources/ecs/blocks.txt

@@ -95,8 +95,10 @@ Restart:
         create TR in Table
         create TD in TR
         set the style of TD to `width:8em;border:1px solid black;padding-left:0.5em`
+        index BlockNameSpan to B
         create BlockNameSpan in TD
         set the content of BlockNameSpan to BlockName
+        index BlockNameInput to B
         create BlockNameInput in TD
         set the style of BlockNameInput to `width:100%;display:none`
         set the content of BlockNameInput to BlockName
@@ -124,13 +126,12 @@ Restart:
     begin
     	gosub to SaveSelectedBlock
         put the index of EditButton into SelectedBlock
-        put the text of EditButton into Action
         put 0 into N
         while N is less than the json count of BlockNames
         begin
            	index EditButton to N
         	set style `background` of EditButton to ``
-            set the text of EditButton to `Edit`
+            if N is not SelectedBlock set the text of EditButton to `Edit`
             index BlockNameSpan to N
             index BlockNameInput to N
             set the content of BlockNameSpan to the text of BlockNameInput
@@ -141,6 +142,7 @@ Restart:
             add 1 to N
         end
         index EditButton to SelectedBlock
+        put the text of EditButton into Action
     	if Action is `Edit`
         begin
         	set style `background` of EditButton to `lightgray`
@@ -172,7 +174,13 @@ Restart:
                 add 1 to N
             end
         end
-        else gosub to SaveSelectedBlock
+        else
+        begin
+        	gosub to SaveSelectedBlock
+        	set the text of EditButton to `Edit`
+            clear Editor
+            set style `display` of Editor to `none`
+        end
     end
     on click DeleteBlock
     begin

iwsy/resources/ecs/content.txt

@@ -81,8 +81,10 @@ Restart:
         create TR in Table
         create TD in TR
         set the style of TD to `width:8em;border:1px solid black`
+        index ItemNameSpan to B
         create ItemNameSpan in TD
         set the content of ItemNameSpan to ItemName
+        index ItemNameInput to B
         create ItemNameInput in TD
         set the style of ItemNameInput to `width:100%;display:none`
         set the content of ItemNameInput to ItemName

iwsy/resources/ecs/iwsy.txt

@@ -48,6 +48,7 @@
     variable CurrentScriptName
     variable Action
     variable Source
+    variable Running
     variable N
 
   ! The browser
@@ -306,13 +307,16 @@ L2:
         end
     end
 
+    on click RunStop go to DoRunStop
+    
     gosub to CreateNewPresentation
     put Presentation into LastSavedState
     gosub to SetupSteps
     gosub to SetupBlocks
     gosub to SetupContent 
     put 0 into N
     gosub to SelectSection
+    clear Running
 
     on message
     begin
@@ -322,7 +326,12 @@ L2:
         else if Action is `refresh`
         begin
         	iwsy script Presentation
-            gosub to UpdateCurrentSection
+            set style `display` of StepsPanel to `none`
+            set style `display` of BlocksPanel to `none`
+            set style `display` of ContentPanel to `none`
+            if Section is 0 set style `display` of StepsPanel to `block`
+            else if Section is 1 set style `display` of BlocksPanel to `block`
+            else if Section is 2 set style `display` of ContentPanel to `block`
         end
     end
 	stop
@@ -506,6 +515,7 @@ SelectFile:
     set the content of Status to `Presentation '` cat File cat `' loaded`
     fork to ResetStatus
     set ShowRun
+    print Presentation
     iwsy load Player Presentation
 
 CloseBrowser:
@@ -527,6 +537,45 @@ ResetStatus:
     set the content of Status to ``
     stop
 
+DoRunStop:
+	if Running
+    begin
+    	clear Running
+		gosub to ClearStepsButtons
+    	set attribute `src` of RunStop to `resources/icon/run.png`
+        iwsy stop
+    end
+    else
+    begin
+    	set Running
+    	put property `steps` of Presentation into Item
+    	if the json count of Item is  0 stop
+        set attribute `src` of RunStop to `resources/icon/runstop.png`
+
+        iwsy onstep
+        begin
+            set Message to object
+            set property `action` of Message to `step`
+            set property `step` of Message to the step
+            send Message to StepsModule
+        end
+    
+        iwsy run then
+        begin
+			gosub to ClearStepsButtons
+    		set attribute `src` of RunStop to `resources/icon/run.png`
+            clear Running
+            stop
+        end
+    end
+	stop
+
+ClearStepsButtons:
+    set Message to object
+    set property `action` of Message to `clear`
+    send Message to StepsModule
+    return
+
 GetPassword:
 	if ReadOnly
     begin