Modaler Dialog, der die Menüleiste seines Elternteils in Racket/GUI deaktiviert?

Question

1. Mit Racket GUI-Bibliothek, ich finde ich kann nicht eine echte modale Dialog, wenn es angezeigt wird, ist es unmöglich, das übergeordnete Fenster zu aktivieren.
2. Obwohl der Dialog den Ereignisbereich des übergeordneten Elements blockiert, kann die Menüleiste im übergeordneten Fenster angeklickt werden, sodass derselbe Dialog immer wieder angezeigt werden kann. Es folgt der Code:

#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) 

(ps die Message-Box und ein Dialogfenster kann - genauso wie (new dialog% [parent frame]))

Wenn wir also die erste Frage ignoriert, können wir einen modalen Dialog anzeigen, der die Menüleiste der Eltern deaktiviert?

Außerdem ist es wirklich unmöglich, einen echten modalen Dialog in Racket/GUI zu machen?

(Ich arbeite an Win7)

Answer 1

Follow-up: Es war ein Fehler und wird repariert.

Referenzen:

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

Answer 2

Statt eine frame% zu verwenden, ich glaube, Sie hier eine dialog% Klasse verwenden möchten. Ich bin mir nicht sicher, ob Sie einen modalen Dialog mit einer Menüleiste erstellen können.

Achte auch darauf, dass dialog% nur modal für seinen Eventspace ist. Wenn Sie also ein Code-Snippet von DrRacket ausführen, das einen Dialog erstellt, ist DrRacket selbst weiterhin verfügbar.

Answer 3

Dies scheint ein wenig hackish, aber Sie könnten es selbst tun mit [callback (lambda (b e) (send mb enable #f) (message-box "About" "This is a test.") (send mb enable #t))] Oder vielleicht dynamic-wind verwenden, wenn Fortsetzungen beteiligt sind, die in Ihrem Beispiel nicht sind.