function ListLayersGrc
put
the long name of this card into pTargetCard
put
empty into tList
put (the number
of controls of pTargetCard) into xMax
set
itemdel to space
repeat
with x = 1 to xMax
put (the name of control x of
pTargetCard) into myList
if item 1 of myList = "graphic"
then
get
item 2 of myList
delete
char 1 of it
delete
the last char of it
put
it & cr after tList
end if
end
repeat
delete
last char of tList -- the trailing CR
return
tList
end ListLayersGrc |