started with itasks
authorMart Lubbers <mart@martlubbers.net>
Fri, 6 Nov 2015 18:29:39 +0000 (19:29 +0100)
committerMart Lubbers <mart@martlubbers.net>
Fri, 6 Nov 2015 18:29:39 +0000 (19:29 +0100)
a7/mart/skeleton7.icl

index 43b58b2..5281d10 100644 (file)
@@ -141,6 +141,8 @@ ActionOk :== 'iTasks'.ActionOk
 ActionQuit :== 'iTasks'.ActionQuit
 ActionNew :== 'iTasks'.ActionNew
 
-//Start = print (Delete (Integer 4) (Insert (Integer 5) New))
-//Start = print 
-Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)
+mainTask = viewInformation (print e)
+
+Start :: *World -> *World
+Start world = startEngine mainTask world
+//Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)