SlashCmdList['PARENTSTACK'] = function(message, editbox)
   local t = GetTime()
   local f = _G[message]
   repeat
      local name = f:GetName() or "noname"
      local point, relativeTo, relativePoint, xOffset, yOffset  = f:GetPoint()

      point = type(point) == "string" and point or "<no point>"
      relativeTo = relativeTo ~= nil and relativeTo:GetName() or "<no relativeTo>"
      relativePoint = type(relativePoint) == "string" and relativePoint or "<no relativePoint>"
      xOffset =  type(xOffset) == "number" and xOffset or "<no xOffset>"
      yOffset =  type(yOffset) == "number" and yOffset or "<no yOffset>"

      DEFAULT_CHAT_FRAME:AddMessage(name..": "..point..", "..relativeTo..", "..relativePoint..", "..xOffset..", "..yOffset)
      f = f:GetParent()
   until ( GetTime() - t > 0.1 ) or f == nil

end
SLASH_PARENTSTACK1 = '/parentstack'