moved the literate version of chat noir over so it is used by plt-games now

svn: r13776

collects/games/chat-noir/chat-noir-literate.ss

@@ -2183,8 +2183,8 @@ for the other functions in this document
 @section{Run, program, run}
 
 @chunk[<go>
-       (printf "passed ~s tests\n" test-count)
+       ;(printf "passed ~s tests\n" test-count)
-       (flush-output)
+       ;(flush-output)
        
        (let* ([board-size 11]
               [initial-board

collects/games/chat-noir/chat-noir-module.ss

@@ -1,5 +0,0 @@
-(module chat-noir-module lang/htdp-intermediate-lambda
-  (require (lib "world.ss" "htdp"))
-;  (require "hash.ss")
-  (require (lib "include.ss" "scheme"))
-  (include "chat-noir.ss"))

collects/games/chat-noir/chat-noir-unit.ss

@@ -10,21 +10,25 @@
 
 (provide game@)
 (define orig-namespace (current-namespace))
-(define-runtime-path chat-noir "chat-noir-module.ss")
+(define-runtime-path chat-noir "chat-noir-literate.ss")
 
 (define-unit game@
   (import)
   (export)
   (define ns (make-base-namespace))
-  (parameterize ([current-namespace ns])
-    (namespace-attach-module orig-namespace '(lib "mred.ss" "mred"))
-    (namespace-attach-module orig-namespace '(lib "class.ss" "scheme"))
-    (dynamic-require chat-noir #f))
   
   ;; a hack.
   ;; this adds a help button to the world.ss window
+  (thread
+   (λ ()
+     (let loop ([n 0])
+       (when (n . < . 100)
+         (sleep 1/10)
          (let ([fs (get-top-level-windows)])
-    (unless (null? fs)
+           (cond
+             [(null? fs)
+              (loop (+ n 1))]
+             [else
               (let ([f (car fs)]
                     [show-help
                      (show-scribbling
@@ -33,4 +37,9 @@
                 (new button% 
                      [parent f]
                      [callback (λ (x y) (show-help))]
-             [label (string-constant help)])))))
+                     [label (string-constant help)]))]))))))
+  
+  (parameterize ([current-namespace ns])
+    (namespace-attach-module orig-namespace '(lib "mred.ss" "mred"))
+    (namespace-attach-module orig-namespace '(lib "class.ss" "scheme"))
+    (dynamic-require chat-noir #f)))