2011-06-18 57 views
1

即時通訊使用球拍圖形工具包,我想顯示一個建議彈出菜單。建議彈出菜單drracket

我有一個可供選擇的字符串列表,我想在彈出菜單中顯示它們,就像在文本字段中寫入一樣。

我已經設法顯示他們,但您必須重新選擇文本字段才能繼續寫入。每當你選擇文本字段時,彈出菜單就會消失。

這甚至可能嗎?如果是的話我怎麼能做到這一點?

這裏是一個小例子來解釋我的自我更好:

(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))) 
+1

最好在我們的[郵件列表](http: //racket-lang.org/community.html),因爲在那裏有更多的人知道GUI系統。 –

回答

1

你不想在這裏使用一個popup-menu%,那是那種你從右鍵單擊得到上下文菜單。相反,你應該只是創建一個新的窗口(或者只是一個新的frame%這將有適當的回調插入建議到主frame%