-- background: 6343 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 0
-- name: Questions


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=116 top=252 right=274 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: True
----- HyperTalk script -----
on mouseUp
  put field "Fact" into theFact
  visual effect wipe down
  go card "Smart"
  put the number of lines in card field "Facts" into numLines
  put numLines+1 into theLine
  put theFact into line theLine of card field "Facts"
  put true into item 2 of line theLine of card field "Facts"
  send mouseUp to card button "Consultation"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=287 top=253 right=275 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: False
----- HyperTalk script -----
on mouseUp
  put field "Fact" into theFact
  visual effect wipe down
  go card "Smart"
  put the number of lines in card field "Facts" into numLines
  put numLines+1 into theLine
  put theFact into line theLine of card field "Facts"
  put false into item 2 of line theLine of card field "Facts"
  send mouseUp to card button "Consultation"
end mouseUp



-- part 3 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=10 top=38 right=85 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
  hide bkgnd button "Save"
  answer "Save this Question?" with "Cancel" or "No" or "Yes"
  if it is "Cancel"
  then
  show this button
  exit mouseUp
end if
if it is "No"
then
answer "Deleting this card" with "No!" or "Confirm"
if it is "No"
then
show bkgnd button "Save"
exit mouseUp
else
  doMenu "Delete Card"
  pop card
  exit mouseUp
end if
end if
put the ID of this card into theCard
put field "Fact" into theFact
go card "Smart"
put find(card field "Questions",theFact) into theResult
if item 1 of theResult=0
then
put the number of lines in card field "Questions" into theLine
put theLine+1 into theLine
put theFact into item 1 of line theLine of card field "Questions"
put theCard into item 2 of line theLine of card field "Questions"
end if
visual effect iris close
pop card
end mouseUp




-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=21 top=144 right=163 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Fact