property pWindowID, pTimeOutID, pActivateID

on construct me 
  pWindowID = "External Link" && getUniqueID()
  pTimeOutID = getUniqueID()
  pActivateID = getUniqueID()
  registerMessage(#externalLinkClick, me.getID(), #notifyExternalLinkClick)
  return TRUE
end

on deconstruct me 
  me.removeTooltipWindow()
  me.removeWindowTimeout()
  me.removeActivateTimeout()
  unregisterMessage(#externalLinkClick)
  return TRUE
end

on removeTooltipWindow me 
  if windowExists(pWindowID) then
    removeWindow(pWindowID)
  end if
end

on removeWindowTimeout me 
  if timeoutExists(pTimeOutID) then
    removeTimeout(pTimeOutID)
  end if
end

on createWindowTimeout me 
  me.removeWindowTimeout()
  tTimeoutTime = integer(getVariable("external_link_win_timeout", 2000))
  createTimeout(pTimeOutID, tTimeoutTime, #removeTooltipWindow, me.getID(), void(), 1)
end

on createActivateTimeout me 
  me.removeActivateTimeout()
  tTimeoutTime = integer(getVariable("external_link_win_activate_timeout", 500))
  createTimeout(pActivateID, tTimeoutTime, #activateToolTip, me.getID(), void(), 1)
end

on removeActivateTimeout me 
  if timeoutExists(pActivateID) then
    removeTimeout(pActivateID)
  end if
end

on activateToolTip me 
  tWndObj = getWindow(pWindowID)
  if (tWndObj = 0) then
    return FALSE
  end if
  activateWindowObj(pWindowID)
end

on createTooltipWindow me 
  createWindow(pWindowID, "tooltip_external_link.window")
  tWndObj = getWindow(pWindowID)
  if (tWndObj = 0) then
    return FALSE
  end if
  tWndObj.registerProcedure(#eventProc, me.getID(), #mouseUp)
end

on notifyExternalLinkClick me, tClickLocation 
  if voidp(tClickLocation) then
    return FALSE
  end if
  if ilk(tClickLocation) <> #point then
    return FALSE
  end if
  if not windowExists(pWindowID) then
    me.createTooltipWindow()
  end if
  tWndObj = getWindow(pWindowID)
  if (tWndObj = 0) then
    return FALSE
  end if
  tWndWidth = tWndObj.getProperty(#width)
  tWndHeight = tWndObj.getProperty(#height)
  tMarginH = getVariable("external_link_win_offset_h")
  tMarginV = getVariable("external_link_win_offset_v")
  tScreenWidth = (the stageRight - the stageLeft)
  tOpenLocH = (tClickLocation.getAt(1) + tMarginH)
  if (tOpenLocH + tWndWidth) > tScreenWidth then
    tOpenLocH = ((tClickLocation.getAt(1) - tMarginH) - tWndWidth)
  end if
  tOpenLocV = ((tClickLocation.getAt(2) - tMarginV) - tWndHeight)
  if (tOpenLocV - tMarginV) < 0 then
    tOpenLocV = (tClickLocation.getAt(2) + tMarginV)
  end if
  tWndObj.moveTo(tOpenLocH, tOpenLocV)
  me.createWindowTimeout()
  me.createActivateTimeout()
end

on eventProc me, tEvent, tElemID, tParam 
  tWndObj = getWindow(pWindowID)
  if (tWndObj = 0) then
    return FALSE
  end if
  if (tEvent = #mouseUp) then
    me.removeTooltipWindow()
  end if
end