Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Assess.Dxr/Internal_7_form 1 handlers.ls

Text File | 1998-04-24 | 4.7 KB | 131 lines

global gFormClicks, checkMarks1

on openTextForm
  global gMasterData
  go("form1")
  goNarrator(gMasterData, "11")
  setUserArea(gMasterData, #styleForm)
  if voidp(gFormClicks) then
    set gFormClicks to [#empty, #empty, #empty]
  end if
  setPuppetState([10, 12], #c, 1)
  resetStyleClicks()
  setFingerCursor(#on, [5, 6, 7])
end

on closeTextForm
  setPuppetState([10, 12], #c, 0)
  setFingerCursor(#off, [5, 6, 7])
  if getaProp(checkMarks1, #style) = 0 then
    setaProp(checkMarks1, #style, 1)
  end if
end

on setUserAnswers Xart, verticalLoc
  set vListPos to Xart - 4
  set spriteTop to the top of sprite Xart
  set spriteLeft to the left of sprite Xart + 6
  puppetSound("quickclick")
  case 1 of
    (verticalLoc < (spriteTop + 13)):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 6)
      setAt(gFormClicks, vListPos, #a)
    ((verticalLoc > (spriteTop + 13)) and (verticalLoc < (spriteTop + 28))):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 21)
      setAt(gFormClicks, vListPos, #b)
    ((verticalLoc > (spriteTop + 28)) and (verticalLoc < (spriteTop + 43))):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 36)
      setAt(gFormClicks, vListPos, #c)
    ((verticalLoc > (spriteTop + 43)) and (verticalLoc < (spriteTop + 58))):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 51)
      setAt(gFormClicks, vListPos, #d)
    ((verticalLoc > (spriteTop + 58)) and (verticalLoc < (spriteTop + 73))):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 66)
      setAt(gFormClicks, vListPos, #e)
    ((verticalLoc > (spriteTop + 73)) and (verticalLoc < (spriteTop + 88))):
      set the loc of sprite (Xart + 5) to point(spriteLeft, spriteTop + 81)
      setAt(gFormClicks, vListPos, #f)
  end case
  updateStage()
end

on getTextAnswers
  set vTempText to EMPTY
  set the text of member "styleAnswers" to EMPTY
  put "These are your answers to the section What's Your Style?" & RETURN & RETURN after vTempText
  put "What is the style you use most frequently when dealing with key changes in your life?  " after vTempText
  put clicksToText(1) & RETURN & RETURN after vTempText
  put "Complete the following sentence: I believe that style of dealing with change I most frequently use now is -- " after vTempText
  put clicksToText(2) & RETURN & RETURN after vTempText
  put "To what extent do you want to modify your most frequently used style of dealing with change?" && the text of member "style field 1" & RETURN & RETURN after vTempText
  put "Which personal style would you prefer to use most often in dealing with change?  " after vTempText
  put clicksToText(3) & RETURN & RETURN after vTempText
  put "List three reasons for wanting to improve your style of dealing with change, or practice using your chosen style more effectively." && the text of member "style field 2" & RETURN & RETURN after vTempText
  set the text of member "styleAnswers" to vTempText
end

on clicksToText thisUn
  case thisUn of
    1, 3:
      case getAt(gFormClicks, thisUn) of
        #empty:
          set vAnswer to "No selection made."
        #a:
          set vAnswer to "Acquiescence"
        #b:
          set vAnswer to "Partnership"
        #c:
          set vAnswer to "Passive resistance"
        #d:
          set vAnswer to "Active resistance"
        #e:
          set vAnswer to "Full Retreat"
        #f:
          set vAnswer to "Active acceptance"
      end case
      return vAnswer
    2:
      case getAt(gFormClicks, 2) of
        #empty:
          set vAnswer to "... no selection made"
        #a:
          set vAnswer to "working against me."
        #b:
          set vAnswer to "not working for me as well as it could be."
        #c:
          set vAnswer to "usually working okay for me."
        #d:
          set vAnswer to "working most of the time."
        #e:
          set vAnswer to "helping me to excel."
      end case
      return vAnswer
  end case
end

on resetStyleClicks
  repeat with X = 10 to 12
    set vListPos to X - 9
    set vClickArt to X - 5
    set spriteTop to the top of sprite vClickArt
    set spriteLeft to the left of sprite vClickArt + 6
    case getAt(gFormClicks, vListPos) of
      #empty:
        nothing()
      #a:
        set the loc of sprite X to point(spriteLeft, spriteTop + 6)
      #b:
        set the loc of sprite X to point(spriteLeft, spriteTop + 21)
      #c:
        set the loc of sprite X to point(spriteLeft, spriteTop + 36)
      #d:
        set the loc of sprite X to point(spriteLeft, spriteTop + 51)
      #e:
        set the loc of sprite X to point(spriteLeft, spriteTop + 66)
      #f:
        set the loc of sprite X to point(spriteLeft, spriteTop + 81)
    end case
  end repeat
  updateStage()
end