suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed running/showing of interlocking-component slide example

Browse Source 
svn: r427
This commit is contained in:
Matthew Flatt 2005-07-21 21:12:43 +00:00
parent fa19336839
commit e511778fa2
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/slideshow/tutorial-show.ss
View File

@ -600,9 +600,10 @@
(let ([c (make-custodian)]) (let ([c (make-custodian)])
(parameterize ([current-namespace (make-namespace-with-mred)] (parameterize ([current-namespace (make-namespace-with-mred)]
[current-command-line-arguments [current-command-line-arguments
(vector (build-path (collection-path "slideshow") (vector (path->string
"examples" (build-path (collection-path "slideshow")
f))] "examples"
f)))]
[current-custodian c] [current-custodian c]
[exit-handler (lambda (v) [exit-handler (lambda (v)
(custodian-shutdown-all c))] (custodian-shutdown-all c))]
@ -610,13 +611,13 @@
"examples")]) "examples")])
(parameterize ([current-eventspace (make-eventspace)]) (parameterize ([current-eventspace (make-eventspace)])
(queue-callback (queue-callback
(lambda () (dynamic-require '(lib "slideshow.ss" "slideshow") #f))))))) (lambda () (dynamic-require '(lib "start.ss" "slideshow") #f)))))))
(require (lib "edit.ss" "mred")) (require (lib "edit.ss" "mred"))
(define (show-example-code f) (define (show-example-code f)
(new-text-frame (build-path (collection-path "slideshow") (new-text-frame (path->string (build-path (collection-path "slideshow")
"examples" "examples"
f))) f))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Part IV ;; Part IV