rebol - 如何在 rebol 视图中弹出等待消息窗口？

Question

我只想在 rebol 视图中弹出一个等待消息窗口，但是使用 View 命令没有这样做的选项

View win: layout [text "wait"]

do-some-lengthy-task

Unview win

将阻止脚本，直到用户自己关闭消息，这当然不是这里想要的。

那么如何制作非阻塞视图呢？

Answer 1

那这个呢？

View/new win: layout [button "Do-It" [print "ok"]]
repeat i 10 [print i wait 0:0:1] ;lengthy-task
Unview win

Answer 2

fl：闪现“等一下……”

做东西...

取消查看/仅佛罗里达