module test

import iTasks
import StdDebug
import Data.Func
import iTasks.UI.JavaScript
import iTasks.Extensions.SVG.SVGEditor => qualified grid

Start w = doTasks gui6 w

gui6 = updateInformation () [UpdateUsing id (const id) (fromSVGEditor svged)] [(5.0, 5.0, 5.0)]

svged :: SVGEditor [(Real, Real, Real)] [(Real, Real, Real)]
svged = {initView=id, renderImage=renderImage, updModel=const}
where
	renderImage images _ ts
		= collage [(px x, px y)\\(_, x, y)<-images] [circle (px r)\\(r, _, _)<-images]
		$ Host $ rect (px 100.0) (px 100.0)
			<@< {fill=toSVGColor "white"}
			<@< {onclick=clicker,local=False}

	clicker m = jsTrace "click" [(10.0, 10.0, 5.0):m]