Part of the Samples Website. 8/16/97.

---

samples.basicStuff.tableVisit

«visits every cell in the object database

on visit (adrtable)

local (i)

for i = 1 to sizeOf (adrtable^)

local (adrcell = @adrtable^ [i])

msg (nameOf (adrcell^))

if typeOf (adrcell^) == tableType

visit (adrcell)

visit (@root)

This page was last built on Sat, Aug 16, 1997 at 6:41:34 PM. You can download the current set of sample scripts from our FTP site. Dave