testsssss

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

diff --git a/parallel-action/test.icl b/parallel-action/test.icl
index 8877787..9e16574 100644 (file)
--- a/parallel-action/test.icl
+++ b/parallel-action/test.icl
@@ -9,11 +9,11 @@ Start w = startEngineWithOptions
                [(Embedded, tab "tab1")
                ,(Embedded, tab "tab2")
                ]
-               [ OnAction (Action "New") (always (Embedded, \l->appendTask Embedded (tab "New tab") l @! ()))
-               , OnAction (Action " ") (always (Embedded, \l->appendTask Embedded (tab "New tab") l @! ()))
-               , OnAction (Action "Close") (never (Embedded, \l->treturn ()))
-               , OnAction (Action "Dis no icon") (never (Embedded, \l->treturn ()))
-               , OnAction (Action "+") (always (Embedded, \r->treturn ()))
+               [ 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))