add display task start message to *Console* buffer.

mitchan0321 · Sep 24, 2024 · 1a25314 · 1a25314
1 parent 54fd142
commit 1a25314
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/lib/TaskManager.prfm b/lib/TaskManager.prfm
@@ -51,11 +51,13 @@ TaskManager method add (task name) {
     $in set-comode;
     $in set-tag STDIN;
     (__in __out __err) ::= $task get-stdio;
-    call $task (set-stdio 
-                [$__in ??? <nil> $in] 
-                [$__out ??? <nil> $Task_stdout] 
-                [$__err ??? <nil> $Task_stdout]
+    call $task (
+        set-stdio
+        [$__in ??? <nil> $in]
+        [$__out ??? <nil> $Task_stdout]
+        [$__err ??? <nil> $Task_stdout]
     );
+    output-console [">>>Task [" . $sname "] start"];
     return $sname;
 };