rollout unnamedRollout "Untitled" 162 height:235
(
slider sld1 "Slider" pos:[24,16] 114 height:44
Timer tmr1 "计时器" pos:[27,82] 24 height:24 enabled:true interval:100 active:true
edittext edt5 "物体数目" pos:[24,128] 107 height:27
on sld1 changed val do
(
for a in objects where hasproperty a "radius" do a.radius=sld1.value
)
on tmr1 tick do
(
edt5.text = (selection.count as string)
)
)
createdialog unnamedRollout
