如何在Rebol中继续处理事件的同时启动永久循环

HappySpoon 发表于 Dev

快乐汤匙

我想在我的应用程序中设置一个Web服务器，这需要一个永远的循环。wait循环中的s允许GUI继续处理接口事件。

但是，如果启动循环，则无法退出循环以启动GUI。

而且，如果我已经在GUI中，那么尽管我可以使用按钮来使用户启动Web服务器，但我想自动执行此操作。

我在RebGUI中尝试过将Web服务器代码附加到按钮上，然后：

开始：“开始”按钮[永远[.. Web服务器代码...]]

然后开始使用

开始/操作/单击开始

但这是行不通的。

布雷特

在Web服务器的永久循环中，您可以在发生某种情况时启动gui。

或者，如果您想已经在GUI中，请为gui创建一个循环（包括短暂的等待），并在发生某种情况时启动webserver循环。

例如：

REBOL [
    purpose: {Demonstrate breaking from one event loop to go to another.}
]

view/new layout [
    origin 0
    h1 400 rate 1 feel [
        engage: func [face act evt] [
            face/text: reform [now/time mode]
            show face
        ]
    ]
] 200x100

mode: "Initial Loop"
started: now
while [now < (started + 00:00:04)] [
    wait 0.1
]

mode: "Final Loop"
wait none

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。