set vFieldList to ["style field 1", "style field 2", "corner 1", "corner 2", "corner 3", "corner 4", "historyAnswers", "styleAnswers", "ReactionAnswers", "PRAnswers", "4CornersAnswers", "PrintAllPart1"]
repeat with xField in vFieldList
set the text of member xField to EMPTY
end repeat
setCHfield()
end
on setCHfield
set the textStyle of member "CH field" to "plain"
set the text of member "CH field" to the text of member "CH field source"
set theseLines to [1, 4, 7, 10, 13, 16]
repeat with X in theseLines
set vCharCount to the number of chars in line X of field "CH field"
set the textStyle of char 1 to vCharCount - 1 of line X of field "CH field" to "bold"
end repeat
set vChar to the number of chars in line 1 of field "CH field"
set the selStart to vChar
set the selEnd to vChar
end
on assemblePRFields textf1, textf2
global gPRHolder
set lineCount to the number of lines in field textf1
repeat with i = 1 to lineCount
set tmp1 to line i of field textf1
set tmp2 to line i of field textf2
put tmp1 && tmp2 into line i of gPRHolder
end repeat
end
on setPRField
global gPRHolder
set the text of field "PRAnswers" to EMPTY
put "These are your Personal Resources in the order you ranked them:" & RETURN & RETURN & gPRHolder into field "PRAnswers"
end
on listReactions
global gCardsMoved, gCorner3
set vTempText to EMPTY
set the text of member "ReactionAnswers" to EMPTY
put "Your Reactions to Change" & RETURN & RETURN after vTempText
put "The reactions to change that you selected are:" & RETURN after vTempText
repeat with vArt in gCardsMoved
put line vArt - 6 of field "reactions list" & RETURN after vTempText
end repeat
put RETURN & "Your score on the Reaction to Change meter was:" && gCorner3 & RETURN after vTempText
set the text of member "ReactionAnswers" to vTempText
end
on getCorner1
global gCorner1
set gCorner1 to clicksToText(1)
end
on getCorner2 answerfield, startword, endword
global gCorner2
set tmpStart to 0
set tmpEnd to 0
set vTempText to EMPTY
set wCount to the number of words in field answerfield
repeat with i = 1 to wCount
if word i of field answerfield = startword then
set tmpStart to i + 1
exit repeat
end if
end repeat
repeat with i = 1 to wCount
if word i of field answerfield = endword then
set tmpEnd to i - 1
exit repeat
end if
end repeat
if (tmpStart = 0) or (tmpEnd = 0) then
set vTempText to "The following are your answers to the Change History reflection questions:" & RETURN & RETURN & "Change History field error" & RETURN
else
if (tmpEnd - tmpStart) = -1 then
set gCorner2 to "No answer given."
set vTempText to "The following are your answers to the Change History reflection questions:" & RETURN & RETURN & "NO answer in this session." & RETURN
else
set gCorner2 to word tmpStart to tmpEnd of field answerfield
set vTempText to "The following are your answers to the Change History reflection questions:" & RETURN & RETURN & the text of member "CH field" & RETURN
end if
end if
set the text of member "HistoryAnswers" to vTempText
end
on getCorner3
global gBoardScore, gCorner3
case 1 of
(gBoardScore >= 25):
set gCorner3 to "Strong Acceptance"
((gBoardScore >= 8) and (gBoardScore <= 24)):
set gCorner3 to "Moderate Acceptance"
((gBoardScore >= -8) and (gBoardScore <= 7)):
set gCorner3 to "Willing to Comply"
((gBoardScore >= -24) and (gBoardScore <= -9)):
set gCorner3 to "Moderate Resistance"
(gBoardScore <= -26):
set gCorner3 to "Strong Resistance"
end case
end
on getCorner4
global gCorner4, gPRHolder
repeat with i = 1 to 3
put line i of gPRHolder into line i of gCorner4
end repeat
end
on getAllPart1
global gAllPart_1
set partA to the text of member "styleAnswers"
set partB to the text of member "historyAnswers"
set partC to the text of member "ReactionAnswers"
set partD to the text of member "PRAnswers"
set partE to the text of member "4CornersAnswers"
set gAllPart_1 to "Answers from Part 1, Self-Assessment:" & RETURN & "--------------------------------------------------" & RETURN & RETURN & partA & RETURN & partB & RETURN & partC & RETURN & partD & RETURN & partE
end
on menuPrint
global gMasterData, gAllPart_1
if iAmActivated(gMasterData) then
getAllPart1()
set the text of member "PrintAllPart1" to gAllPart_1
print(the text of member "PrintAllPart1")
else
alert("Printing is unavailable until an activity is completed.")
