在GUI事件之间等待

这里的问题是,一个单nq“向内部队列发送”消息。当您“nq”第二条消息时,第一条消息尚未处理,因此目标对象尚未创建。使用1到nq的左参数,它将“发送”消息到对象,而不是“发布”消息。

⎕NQ documentation

在我的机器上,我完成了以下操作:

'⎕se.mb.jd' ⎕wc 'MenuItem' 'jd' ('event' 'select' 'jd')

我有一个功能JD:

∇jd a
[1]   'f'⎕WC'form'
∇

以及一个函数foo:

∇foo
[1]   1 ⎕NQ'⎕se.mb.jd' 'select'
[2]    ⎕DL 5
[3]   'done'
∇

当我运行foo时,窗口立即弹出,然后有5秒钟的延迟,我在会话中看到结束。

你能试试吗?然后我们来看看你在做什么。

如果异步调用测试函数(使用产卵运算符“&”),则延迟将按预期工作:

∇ Test dummy
    ⎕NQ '#.foo.barButton' 'Select'   ⍝ open window
    ⎕NQ '#.foo.bar.bazTab' 'Select'  ⍝ select tab in opened window
    ....
∇

Test& 0