32 lines
376 B
Text
32 lines
376 B
Text
-- parent script "Enumeration"
|
|
|
|
property ancestor
|
|
|
|
on new (me)
|
|
data = [:]
|
|
repeat with i = 2 to the paramCount
|
|
data[param(i)] = i-1
|
|
end repeat
|
|
me.ancestor = data
|
|
return me
|
|
end
|
|
|
|
on setAt (me)
|
|
-- do nothing
|
|
end
|
|
|
|
on setProp (me)
|
|
-- do nothing
|
|
end
|
|
|
|
on deleteAt (me)
|
|
-- do nothing
|
|
end
|
|
|
|
on deleteProp (me)
|
|
-- do nothing
|
|
end
|
|
|
|
on addProp (me)
|
|
-- do nothing
|
|
end
|