-

[clean-tests.git] / parallel-action / test.icl

diff --git a/parallel-action/test.icl b/parallel-action/test.icl
deleted file mode 100644 (file)
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 ()))]