X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parallel-action%2Ftest.icl;fp=parallel-action%2Ftest.icl;h=0000000000000000000000000000000000000000;hb=4b62b5d397d86147e393c05b3083af74a3a0c4af;hp=9e16574b0c4af237ffd6b5a324fcb1037663f7d4;hpb=e5305ee9d4290e1aa803a2e62a14f32e5cd29782;p=clean-tests.git

diff --git a/parallel-action/test.icl b/parallel-action/test.icl
deleted file mode 100644
index 9e16574..0000000
--- a/parallel-action/test.icl
+++ /dev/null
@@ -1,23 +0,0 @@
-module test
-
-import qualified Data.Map as DM
-import iTasks
-
-Start w = startEngineWithOptions
-	(\as o->(Just {o & autoLayout=True}, []))
-	(parallel
-		[(Embedded, tab "tab1")
-		,(Embedded, tab "tab2")
-		]
-		[ OnAction (Action "New") (always (Embedded, tab "New tab"))
-		, OnAction (Action " ") (always (Embedded, tab "New tab"))
-		, OnAction (Action "Close") (never (Embedded, \_->treturn ()))
-		, OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
-		, OnAction (Action "+") (always (Embedded, \_->treturn ()))
-		]
-	<<@ ArrangeWithTabs True
-	<<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
-	) w
-
-tab title _ = viewInformation title [] () <<@ Title title
-	>>* [OnAction (Action "Close") (always (treturn ()))]