Racket/GUIで親のメニューバーを無効にするモーダルダイアログ？

Question

1. ラケットGUIライブラリを使用すると、実際のモーダルダイアログが表示されないことがわかります。表示されているときに、親ウィンドウをアクティブにすることは不可能です。
2. ダイアログは親のイベントスペースをブロックしますが、親ウィンドウのメニューバーをクリックすると、同じダイアログが繰り返し表示されます。

   我々は最初の質問を無視するならば、私達ことができるように -

#lang racket/gui

(define frame (new frame% 
        [label "test"] 
        [width 200] 
        [height 200])) 

(define mb (new menu-bar% [parent frame])) 

(let ([m (new menu% 
       [parent mb] 
       [label "&About"])]) 
    (new menu-item% 
     [parent m] 
     [label "&About"] 
     [callback (lambda (b e) (message-box "About" "This is a test." frame))]) 
) 


(send frame show #t) 

（(new dialog% [parent frame])と同じPSメッセージボックスがダイアログをポップアップ表示することができます）：コードを以下に示します親のメニューバーを無効にするモーダルダイアログを表示しますか？

さらに、racket/guiで実際のモーダルダイアログを作成することは本当に不可能ですか？

（私がWin7の上で働いている）

Answer 1

フォローアップ：これはバグであり、修復されます。

参考文献：

1. http://lists.racket-lang.org/users/archive/2012-April/051275.html
2. http://git.racket-lang.org/plt/commit/9d563c786a71b621fcd2909c917b49939e0d11b0

Answer 2

代わりのframe%を使用して、私はあなたがここにdialog%クラスを使用したいと思います。私はあなたが簡単にメニューバーを持っているモーダルダイアログを作ることができるかどうかはわかりません。

また、dialog%は、そのイベントスペースの唯一のモーダルであることに注意してください。したがって、ダイアログを作成するDrRacketからコードスニペットを実行すると、DrRacket自体にはまだアクセスできます。

Answer 3

これはちょっと頭がおけないようですが、[callback (lambda (b e) (send mb enable #f) (message-box "About" "This is a test.") (send mb enable #t))]と一緒にやってもいいかもしれません。続行が関係する場合は、dynamic-windを使用してください。