Big-Bang und Dialog Anwendung (Racket/Scheme)

Question

Also versuche ich ein Programm zu schreiben, das sowohl die big-bang (siehe 2htdp/universe) Funktion als auch Dialoge verwendet (siehe racket/gui/base). Mein Problem ist, dass ich es so will, dass das Programm beide Fenster zur gleichen Zeit anzeigt, aber ich habe eine harte Zeit, die diesen Teil herausstellt, da beide Funktionen "geschlossen/vervollständigt" werden müssen, damit Code weitergeht. Dies ist, was ich versucht habe, ohne Glück (wegen dem, was vorher gesagt wurde):

#lang racket 

(require 2htdp/universe 
     racket/gui/base) 

(define dialog (instantiate dialog% ("Title"))) 
(define (render data) 
    ...) 

(define main 
    (begin 
     (big-bang ... 
     (on-draw render)) 
     (send dialog show #t))) 

Mit dieser Probe [template] Code, die Big-Bang-Anwendung zeigt zuerst, und für den Dialog, Sie zu zeigen, muss die Big-Bang-Anwendung schließen. Um es wiederholen zu können, möchte ich in der Lage sein, beide gleichzeitig anzeigen zu lassen.

Wenn Sie weitere Informationen zu diesem Problem wünschen, lassen Sie es mich wissen. Vielen Dank im Voraus für jede Hilfe.

Answer 1

Sie können in separaten Fäden mit ihren eigenen eventspaces, die beide diese laufen, die sie blockiert jeweils anderen Ausführung behalten sollte. Erwarten Sie, dass es eine Kommunikation zwischen den beiden geben wird?

Hier ist ein Beispiel:

#lang racket 

(require 2htdp/universe 
     2htdp/image 
     racket/gui/base) 

;; start-dialog: -> void 
(define (start-dialog) 
    (define dialog (new dialog% [label "A sample title"])) 
    (send dialog show #t)) 

;; start-up-big-bang: -> number 
(define (start-up-big-bang) 
    (big-bang 0 
      (on-tick add1 1) 
      (to-draw draw))) 

;; draw: number -> image 
(define (draw w) 
    (text (format "I see my number is: ~a" w) 20 "black")) 

;; We create fresh eventspaces for each. 
;; See: http://docs.racket-lang.org/gui/windowing-overview.html#(part._eventspaceinfo) 
;; for more details. 
(define c1 (make-eventspace)) 
(define c2 (make-eventspace)) 

;; And now we can spawn off these two to run concurrently. 
(define t1 (parameterize ([current-eventspace c1]) 
      (thread start-up-big-bang))) 
(define t2 (parameterize ([current-eventspace c2]) 
      (thread start-dialog))) 

;; Let's wait till both the big-bang and the dialog have closed. 
(thread-wait t1) 
(thread-wait t2)