为什么我的沙盒球拍GUI应用不响应事件？

Question

我有一个非常简单的球拍GUI：

(define frame (new frame% [label "Goodbye, World!"]))

(define msg (new message% [parent frame]
                          [label "No events so far..."]))

(new button% [parent frame]
             [label "Click Me"]
             (callback (lambda (button event)
                         (send msg set-label "Button click"))))

(send frame show #t)

这是按预期工作的 - 如果我直接运行，则产生一个对事件做出响应的按钮。但是，如果我在沙箱中运行它作为另一个球拍GUI应用程序的一部分：

(define/public (set-content content)
  (parameterize ([sandbox-gui-available #t])
    (let ((evaluator (make-evaluator 'racket/gui)))
      (evaluator content))))

...其中content是上面的球拍源，则在set-content时显示帧。称为：

...但没有响应诸如点击之类的事件。

我怀疑我在这里缺少一些明显的东西，但文档建议新的GUI应该获得自己的活动空间，所以这感觉就像是应该工作。

Answer 1

我认为这是沙盒GUI支持中的错误。启用GUI模式后，它会创建事件空间并在该事件空间的处理程序线程中运行评估循环。但是，评估循环块在频道上等待进行评估，因此它阻止了事件空间处理实际的GUI事件。

解决方法是在做在做任何涉及当前事件空间的其他操作之前，例如创建帧。