old/onclick/test.icl

   1 module test
   2
   3 import iTasks
   4 import StdDebug
   5 import Data.Func
   6 import iTasks.UI.JavaScript
   7 import iTasks.Extensions.SVG.SVGEditor => qualified grid
   8
   9 Start w = doTasks gui6 w
  10
  11 gui6 = updateInformation () [UpdateUsing id (const id) (fromSVGEditor svged)] [(5.0, 5.0, 5.0)]
  12
  13 svged :: SVGEditor [(Real, Real, Real)] [(Real, Real, Real)]
  14 svged = {initView=id, renderImage=renderImage, updModel=const}
  15 where
  16         renderImage images _ ts
  17                 = collage [(px x, px y)\\(_, x, y)<-images] [circle (px r)\\(r, _, _)<-images]
  18                 $ Host $ rect (px 100.0) (px 100.0)
  19                         <@< {fill=toSVGColor "white"}
  20                         <@< {onclick=clicker,local=False}
  21
  22         clicker m = jsTrace "click" [(10.0, 10.0, 5.0):m]