fullscreen/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 Start w = startEngineWithOptions
   6         (\a o->(Just {o & autoLayout=True}, []))
   7         (allTasks [t1, t2, t3, t4, t5]) w
   8
   9 t1 = (viewInformation () [] "foo" <<@ InPanel True) @! ()
  10
  11 t2 = (viewInformation () [] "bar" <<@ InPanel True) @! ()
  12 t3 = return ()
  13 t4 = return ()
  14 t5 = return ()
  15