«yet another folder outliner script!
«this time we do it by traversing the hiearchic list
«produced by samples.lists.sample3
if not defined (scratchpad.systemList)
samples.lists.sample3 ()
on listToSuboutline (l)
local (i, dir = right, count = sizeOf (l), item)
if count > 0
for i =1 to count
item = l [i]
if typeOf (l [i]) equals listType
listToSuboutline (l [i])
else
op.insert (l [i], dir)
dir = down
op.go (left, 1)
new (outlineType, @scratchpad.folderOutline)
target.set (@scratchpad.folderOutline)
op.setLineText (user.name + "'s System Folder:")
edit (@scratchpad.folderOutline)
listToSuboutline (scratchpad.systemList)
target.clear ()
This page was last built on Sat, Aug 16, 1997 at 6:42:59 PM. You can download the current set of sample scripts from our FTP site. Dave |