property pItemList

on construct me 
  pItemList = []
  pItemList.sort()
  return TRUE
end

on deconstruct me 
  tObjMngr = getObjectManager()
  i = 1
  repeat while i <= pItemList.count
    if tObjMngr.exists(pItemList.getAt(i)) then
      tObjMngr.remove(pItemList.getAt(i))
    end if
    i = (1 + i)
  end repeat
  pItemList = []
  return TRUE
end

on create me, tid, tClass 
  if getObjectManager().exists(tid) then
    return(error(me, "Object already exists:" && tid, #create))
  end if
  if not getObjectManager().create(tid, tClass) then
    return FALSE
  end if
  pItemList.add(tid)
  return TRUE
end

on get me, tid 
  return(getObjectManager().get(tid))
end

on remove me, tid 
  if not me.exists(tid) then
    return FALSE
  end if
  pItemList.deleteOne(tid)
  return(getObjectManager().remove(tid))
end

on exists me, tid 
  return(me.pItemList.getOne(tid) > 0)
end

on print me 
  tListMode = ilk(me.pItemList)
  i = 1
  repeat while i <= me.count(#pItemList)
    if (tListMode = #list) then
      tid = me.getProp(#pItemList, i)
    else
      tid = me.pItemList.getPropAt(i)
    end if
    tObj = me.get(tid)
    if symbolp(tid) then
      tid = "#" & tid
    end if
    put(tid && ":" && tObj)
    i = (1 + i)
  end repeat
  return TRUE
end