Skill Code Need to Toggle Path or Path Segment Width

Hi,

I need a skill code in which I can toggle the path or path segment width from list(0.1, 0.15, 0.2, 0.3) and when the metal width is 0.3 then it will loop back to 0.1.  I have the following script it only changes the metal width to 0.15 but does not have the toggle function.

procedure(toggleWidth()
 foreach(obj geGetSelectedSet()
  if(obj~>width=0.1 then
     obj~>width=0.15
  )
 )
)

Thanks,

EW