[[ Tutorial ]] Add 'Do It For Me' buton to non-script action steps

This enables users to skip individual action steps.

Author: livecodeali

Toolset/palettes/tutorial/revtutorial.livecodescript

@@ -820,10 +820,12 @@ constant kMaxScriptHeight = 200
 local sDontShow
 local sLastShape
 on revTutorialPositionStack pStack, pObject, pWidthOverride, pForceVertical
-   local tGotItButtonID, tCopyButtonID
+   local tGotItButtonID, tCopyButtonID, tDoItButtonID
    local tMsgFieldID, tScriptFieldID, tImageID
+   local tActionButton
 
    put the long id of button "Got It" of stack "revTutorial" into tGotItButtonID
+   put the long id of button "Do It For Me" of stack "revTutorial" into tDoItButtonID
    put the long id of button "Copy Script" of stack "revTutorial" into tCopyButtonID
    put the long id of field "Message" of stack "revTutorial" into tMsgFieldID
    put the long id of field "Script" of stack "revTutorial" into tScriptFieldID
@@ -844,9 +846,7 @@ on revTutorialPositionStack pStack, pObject, pWidthOverride, pForceVertical
    put the defaultStack into tDefaultStack
    set the defaultstack to "revTutorial"
    if sIsInterlude then
-      show tGotItButtonID
-      set the height of tGotItButtonID to the formattedHeight of tGotItButtonID
-      set the width of tGotItButtonID to the formattedWidth of tGotItButtonID
+      put tGotItButtonID into tActionButton
       put max(pWidthOverride, 460) into pWidthOverride
    else
       hide tGotItButtonID
@@ -859,9 +859,14 @@ on revTutorialPositionStack pStack, pObject, pWidthOverride, pForceVertical
    else
       put true into tHasScript
       show tScriptFieldID
-      set the height of tCopyButtonID to the formattedHeight of tCopyButtonID
-      set the width of tCopyButtonID to the formattedWidth of tCopyButtonID
-      show tCopyButtonID
+      put tCopyButtonID into tActionButton
+   end if
+   
+   # If this is a non-script action step, show the 'Do It For Me' button
+   if sIsInterlude or tHasScript then
+      hide tDoItButtonID
+   else
+      put tDoItButtonID into tActionButton
    end if
 
    local tHasImage
@@ -945,10 +950,11 @@ on revTutorialPositionStack pStack, pObject, pWidthOverride, pForceVertical
       put max(tWidth, the width of tUrlControlID + kMargin * 2) into tWidth
    end if
 
-   if sIsInterlude then
-      add the height of tGotItButtonID + kMargin to tHeight
-   else if tHasScript then
-      add the height of tCopyButtonID + kMargin to tHeight
+   if tActionButton is not empty then
+      set the height of tActionButton to the formattedHeight of tActionButton
+      set the width of tActionButton to the formattedWidth of tActionButton
+      show tActionButton
+      add the height of tActionButton + kMargin to tHeight
    end if
 
    if tHasImage then
@@ -1013,15 +1019,18 @@ on revTutorialPositionStack pStack, pObject, pWidthOverride, pForceVertical
       set the rect of stack "revTutorial" to 0, 0, tWidth, tHeight
       set the topleft of stack "revTutorial" to tStackLeft, tStackTop
    else
-      if sIsInterlude then
-         set the bottomright of tGotItButtonID to tWidth - kMargin, tHeight - kMargin
-      else if tHasScript then
-         set the bottomright of tCopyButtonID to tWidth - kMargin, tHeight - kMargin
-      end if
       set the rect of stack "revTutorial" to 0, 0, tWidth, tHeight
       set the loc of stack "revTutorial" to item 3 of tScreenRect / 2, item 4 of tScreenRect / 2
    end if
-   
+   if tActionButton is not empty then
+      local tButtonBottom, tButtonRight
+      put tWidth - kMargin into tButtonRight
+      put tHeight - kMargin into tButtonBottom
+      if tHasPointer and not tPointerLeft and not tPointVertical then
+         subtract kPointerWidth / 2 from tButtonRight
+      end if
+      set the bottomright of tActionButton to tButtonRight,tButtonBottom
+   end if
    if sIsInterlude then
       set the backColor of stack "revTutorial" to revTutorialInterludeColor()
    else
@@ -1313,6 +1322,10 @@ on revInitialiseTutorial
       delete button "Got It" of stack "revTutorial"
    end if
 
+   if there is a button "Do It For Me" of stack "revTutorial" then
+      delete button "Do It For Me" of stack "revTutorial"
+   end if
+   
    if there is a button "Copy Script" of stack "revTutorial" then
       delete button "Copy Script" of stack "revTutorial"
    end if
@@ -1383,6 +1396,10 @@ on revInitialiseTutorial
    set the backColor of it to revTutorialMessageAltColor()
    set the label of it to "Copy Script To Editor"
 
+   create button "Do It For Me"
+   set the backColor of it to revTutorialMessageAltColor()
+   set the label of it to "Do It For Me"
+   
    reset the templateButton
 
    create image "Image"
@@ -1533,33 +1550,39 @@ on revTutorialStartAtStep pCourse, pTutorial, pLesson, pLocation, pStepName
    revTutorialStartWithState pStepName, sTaggedObjects
 end revTutorialStartAtStep
 
+command revTutorialSkipCurrentStep
+   revTutorialSkipStep sStepName
+end revTutorialSkipCurrentStep
+
 on revTutorialSkip
-   local tTutorialInfo
-   put revIDETutorialInProgress() into tTutorialInfo
-   
-   if tTutorialInfo is empty then
-      exit revTutorialSkip
-   end if
-   
    # Calculate the skip point
    local tSkipPoint
    put sStepName into tSkipPoint
    repeat while tSkipPoint is not empty and sSteps[tSkipPoint]["skip point"] is not true
       put sSteps[tSkipPoint]["actions"]["go"]["step"] into tSkipPoint
    end repeat
 
-   local tRunUntil
-   put sSteps[tSkipPoint]["actions"]["go"]["step"] into tRunUntil
+   revTutorialSkipStep tSkipPoint
+end revTutorialSkip
+
+command revTutorialSkipStep pStep
+   local tTutorialInfo
+   put revIDETutorialInProgress() into tTutorialInfo
+   
+   if tTutorialInfo is empty then
+      exit revTutorialSkipStep
+   end if
 
    # Run from the current step to the next skip point
    revTutorialRunTutorial tTutorialInfo["course"], tTutorialInfo["tutorial"], \ 
-         tTutorialInfo["lesson"], tTutorialInfo["location"], sStepName, tRunUntil
+         tTutorialInfo["lesson"], tTutorialInfo["location"], sStepName, pStep
+   
    revTutorialInitialiseStep
 
    # Due to how the run loop works, we need to continue from the step
    # *prior* to the next executed step
-   revTutorialContinueFromStep tSkipPoint
-end revTutorialSkip
+   revTutorialContinueFromStep pStep
+end revTutorialSkipStep
 
 on revTutorialStop
    revTutorialClearHighlights
@@ -2706,6 +2729,10 @@ on mouseUp pWhich
       revTutorialCopyScriptToEditor
    end if
 
+   if tObject is the long id of button "Do It For Me" of stack "revTutorial" then
+      revTutorialSkipCurrentStep
+   end if
+   
    if word 1 of tObject is "button" then
       revTutorialSetUnpressedState tObject
    end if
@@ -3155,12 +3182,11 @@ on revTutorialRunSteps pSteps, pFromStep, pUntilStep
    local tStep, tStepNum
    put pFromStep into tStep
    repeat until tStep is empty
+      revTutorialSetContextualStepData pSteps[tStep]
+      revTutorialRunStep pSteps[tStep]["actions"]
       if tStep is pUntilStep then
          exit repeat
       end if
-      
-      revTutorialSetContextualStepData pSteps[tStep]
-      revTutorialRunStep pSteps[tStep]["actions"]
       put pSteps[tStep]["actions"]["go"]["step"] into tStep
    end repeat
    unlock screen