Window 使两个窗口同时以红色语言显示

Window 使两个窗口同时以红色语言显示,window,rebol,red,Window,Rebol,Red,除非按下退出按钮,否则如何使这两个单独的窗口同时显示并保持打开状态 Red [] view/flags [ below text "second view" f2: field "f2 text" ] 'no-buttons view/flags [ below text "first view" b1: button "Print f2 text" [print f2/

除非按下退出按钮,否则如何使这两个单独的窗口同时显示并保持打开状态

   Red []

   view/flags [ below
            text "second view"
            f2: field "f2 text"
            ] 'no-buttons

   view/flags [ below
        text "first view"
        b1: button "Print f2 text" [print f2/text]
        quitb: button "quit" [quit]
    ] 'no-buttons

我试图将第二个视图放在函数中并从第一个视图调用它,但它只显示第二个视图(第一个视图在第二个视图被Alt-F4关闭后显示)

视图的调用是一个阻塞调用,它将运行自己的事件循环,直到关闭<代码>查看/无等待
将在没有新事件循环的情况下打开窗口,因此它不会阻塞(仍然需要事件循环来处理事件)。因此,您可以以非阻塞模式打开第一个窗口,以阻塞模式打开最后一个窗口,以运行事件循环:

view/no-wait/flags [
    below
    text "second view"
    f2: field "f2 text"
] 'no-buttons

view/flags [
    below
    text "first view"
    b1: button "Print f2 text" [print f2/text]
    quitb: button "quit" [quit]
] 'no-buttons

视图的调用是一个阻塞调用,它将运行自己的事件循环,直到关闭为止<代码>查看/无等待
将在没有新事件循环的情况下打开窗口,因此它不会阻塞(仍然需要事件循环来处理事件)。因此,您可以以非阻塞模式打开第一个窗口,以阻塞模式打开最后一个窗口,以运行事件循环:

view/no-wait/flags [
    below
    text "second view"
    f2: field "f2 text"
] 'no-buttons

view/flags [
    below
    text "first view"
    b1: button "Print f2 text" [print f2/text]
    quitb: button "quit" [quit]
] 'no-buttons