property delays, id

on construct me 
  valid = 1
  delays = [:]
  return TRUE
end

on deconstruct me 
  if count(delays) > 0 then
    i = 1
    repeat while i <= count(delays)
      timeout(delays.getPropAt(i)).forget()
      i = (1 + i)
    end repeat
  end if
  delays = [:]
  return TRUE
end

on setID me, tID 
  if voidp(me.id) then
    id = tID
  else
    error(me, "Attempted to redefine object's ID:" & "\r" & me.id && "->" && tID, #setID, #minor)
  end if
end

on getID me 
  return(id)
end

on delay me, tTime, tMethod, tArgument 
  if not integerp(tTime) then
    return(error(me, "Integer expected:" && tTime, #delay, #major))
  end if
  if not symbolp(tMethod) then
    return(error(me, "Symbol expected:" && tMethod, #delay, #major))
  end if
  tUniqueId = "Delay" && me.getID() && the milliSeconds
  timeout(tUniqueId).new(tTime, #executeDelay, me)
  tList = [#method:tMethod, #argument:tArgument]
  me.setProp(#delays, tUniqueId, tList)
  return(tUniqueId)
end

on Cancel me, tDelayID 
  if voidp(me.getProp(#delays, tDelayID)) then
    return FALSE
  end if
  timeout(tDelayID).forget()
  return(me.delays.deleteProp(tDelayID))
end

on getRefCount me 
  return((integer(string(param(1)).getProp(#word, (string(param(1)).count(#word) - 1))) - 3))
end

on print me 
  put(me)
end

on executeDelay me, tTimeout 
  tID = tTimeout.name
  tTask = delays.getaProp(tID)
  me.Cancel(tID)
  call(tTask.getAt(#method), me, tTask.getAt(#argument))
end

on handlers  
  return([])
end