1local radius = active:get_property("radius").value
2
3touch_point(centerx - dim  - radius, centery)
4mrg:listen(Mrg.DRAG, function(ev)
5  if ev.type == Mrg.DRAG_MOTION then
6    local x = active:get_property("radius").value
7    x = x - ev.delta_x
8    if x < 0 then x = 0 end
9    active:set_property("radius", GObject.Value(GObject.Type.DOUBLE, x))
10    ev:stop_propagate();
11  end
12end)
13cr:new_path()
14
15cr:arc(centerx, centery, radius, 0, 3.14152 * 2)
16contrasty_stroke()
17cr:arc(centerx, centery, radius * 2, 0, 3.14152 * 2)
18contrasty_stroke()
19