检测Rebol

Question

view layout [
  box red feel [
    engage: func [face action event] [
      if action = 'alt-down [print "alt down"] ; 1
      if event/double-click [print "double-click"] ; 2
    ]
  ]
]

此代码未检测到双击右键 当我快速双击右键时，它只会检测到1次点击（第1行） 我试过检测双击，但它不能用于鼠标右键（第2行）。

有没有办法检测连续的鼠标右键单击？