property pIconSprite, pIconLoc, pSpriteId, pFlashTimeoutID

on construct me 
  pSpriteId = "guide_tool_icon_sprite"
  pIconSprite = void()
  pIconLoc = value(getVariable("guidetool.icon.loc"))
  pFlashTimeoutID = "guide_tool_icon_flash"
end

on deconstruct me 
  if (pIconSprite.ilk = #sprite) then
    releaseSprite(pIconSprite.spriteNum)
  end if
end

on show me, tstate 
  if voidp(tstate) then
    tstate = "normal"
  end if
  if pIconSprite.ilk <> #sprite then
    pIconSprite = sprite(reserveSprite(me.getID()))
    if (pIconSprite = 0) then
      return FALSE
    end if
  end if
  pIconSprite.member = member("guide_tool_icon_normal")
  pIconSprite.ink = 8
  pIconSprite.loc = pIconLoc
  pIconSprite.locZ = 200000000
  pIconSprite.visible = 1
  setEventBroker(pIconSprite.spriteNum, pSpriteId)
  pIconSprite.registerProcedure(#eventProcIcon, me.getID(), #mouseUp)
  pIconSprite.setcursor("cursor.finger")
  return TRUE
end

on hide me 
  if (pIconSprite.ilk = #sprite) then
    pIconSprite.visible = 0
  end if
end

on setFlashing me, tstate 
  if (tstate = 1) then
    if not timeoutExists(pFlashTimeoutID) then
      createTimeout(pFlashTimeoutID, 500, #updateFlash, me.getID(), void(), 0)
    end if
  else
    if timeoutExists(pFlashTimeoutID) then
      removeTimeout(pFlashTimeoutID)
    end if
    if (pIconSprite.ilk = #sprite) then
      pIconSprite.member = member("guide_tool_icon_normal")
    end if
  end if
end

on updateFlash me 
  if pIconSprite.ilk <> #sprite then
    return FALSE
  end if
  tMemName = pIconSprite.member.name
  if (tMemName = "guide_tool_icon_normal") then
    pIconSprite.member = member("guide_tool_icon_black")
  else
    pIconSprite.member = member("guide_tool_icon_normal")
  end if
end

on eventProcIcon me, tEvent, tSprID, tProp 
  executeMessage(#toggleGuideTool)
end