Task

Create an enumeration of constants with and without explicit values.




-- 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