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