property pState

on new me
  mImage(me)
  
  return me
end new


on mToggle me
  if pState = 0 then
    mImage(me)
  else
    mText(me)
  end if
end mToggle


on mText me
  set pState = 0
  set the visible of sprite 7 to TRUE
  set the visible of sprite 3 to FALSE
  set the visible of sprite 23 to FALSE
  set the visible of sprite 24 to TRUE
end mText


on mImage me
  set pState = 1
  set the visible of sprite 7 to FALSE
  set the visible of sprite 3 to TRUE
  set the visible of sprite 23 to TRUE
  set the visible of sprite 24 to FALSE
end mImage
