X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parallel-action%2Ftest.icl;h=9e16574b0c4af237ffd6b5a324fcb1037663f7d4;hb=afe5bb5845b9b12c02834f0eb5745da84a92eab8;hp=887778752a3dd003115fd50bccc083ff47dc9d61;hpb=af595886d03bdf67057026993cebda553661eff5;p=clean-tests.git

diff --git a/parallel-action/test.icl b/parallel-action/test.icl
index 8877787..9e16574 100644
--- 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))