diff options
| author | Omar Rizwan <omar@omar.website> | 2023-10-25 22:59:10 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-10-25 22:59:10 +0000 |
| commit | 97852cd052e5f152337873ccf8f92d2eb8e8e88f (patch) | |
| tree | d6d2072fddebc8830b21af043a4051c6ea5fc241 /virtual-programs/new-program-web-editor.folk | |
| parent | Folk programs for charles' folk (diff) | |
| parent | text: Try using Tcl objects in text shaping to prevent conversion (diff) | |
| download | folk-97852cd052e5f152337873ccf8f92d2eb8e8e88f.tar.gz folk-97852cd052e5f152337873ccf8f92d2eb8e8e88f.zip | |
Merge pull request #103 from FolkComputer/osnr/multiple-on-process-blocks
Refactor display into multiple programs; make shaders available from userland; run code on subprocesses
Diffstat (limited to 'virtual-programs/new-program-web-editor.folk')
| -rw-r--r-- | virtual-programs/new-program-web-editor.folk | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/virtual-programs/new-program-web-editor.folk b/virtual-programs/new-program-web-editor.folk index a7c176cc..f972cfc7 100644 --- a/virtual-programs/new-program-web-editor.folk +++ b/virtual-programs/new-program-web-editor.folk @@ -152,12 +152,14 @@ Wish the web server handles route "/new" with handler { Assert web claims {${program}} has program code {${code}} if {$::isLaptop} { Step } `); - setTimeout(() => { - send(` + [500, 1000, 3000].forEach(timeout => { + setTimeout(() => { + send(` set errors [Statements::findMatches [list {${program}} has error /err/ with info /errorInfo/]] ::websocket::send $chan text [join [list "Error:" {*}[lmap e $errors {dict get $e errorInfo}]] "\n"] `); - }, 500); + }, timeout); + }); } let jobid; function handlePrint() { |