Scheme 建议弹出菜单drracket

我正在使用Racket图形工具包，我正在尝试显示一个建议弹出菜单

我有一个可用字符串列表可供选择，我想在您在文本字段中写入时在弹出菜单中显示它们

我已设法显示它们，但您必须重新选择文本字段才能继续编写。每次选择文本字段时，弹出菜单就会消失

这可能吗？如果是这样，我如何才能做到这一点

这里有一个小例子可以更好地解释我自己：

(define (prueba)
  (let* ((ventana (new frame% (label "")))
     (sugerencia (new popup-menu%))
     (texto (new text-field% (label "prueba")(parent ventana)
                (callback (lambda (t e)
                            (new menu-item% (label (send t get-value))(parent sugerencia)
                                    (callback (lambda (i e) (void))))
                             (send ventana popup-menu sugerencia (+ 50 (send t get-x)) (+(send t get-height)(send t get-y))))))))
   (send ventana show #t)))

---

您不想在这里使用

弹出式菜单%

，这是您通过右键单击获得的上下文菜单类型。相反，您应该只创建一个新窗口（或者可能只是一个新的

frame%

，它将有适当的回调，以将建议插入主

frame%

，您不想在这里使用

弹出菜单%

，这是您通过右键单击获得的上下文菜单类型。相反，您应该创建一个新窗口（或者可能只是一个新的

frame%

，它将有适当的回调，以将建议插入主

frame%

，最好在我们的网站上问这类问题，因为那里有更多的人对GUI系统非常了解。最好在我们的网站上问这类问题，因为知道的人更多GUI系统在那里已经足够好了。