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

slideshow: fix tutorial show

Browse Source
This commit is contained in:
Matthew Flatt 2013-09-27 14:47:47 -04:00
parent fbf8bacb95
commit e3e3acb9c8
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt
View File

@ -23,7 +23,7 @@
(titlet "Slideshow Tutorial") (titlet "Slideshow Tutorial")
(blank) (blank)
(size-in-pixels (size-in-pixels
(bitmap (build-path (collection-path "icons") "PLT-206.png"))) (bitmap (collection-file-path "PLT-206.png" "icons")))
(blank) (blank)
(colorize (it "Press the spacebar to continue") "blue") (colorize (it "Press the spacebar to continue") "blue")
(comment "Welcome to Slideshow")) (comment "Welcome to Slideshow"))

3
pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt
View File

@ -99,8 +99,7 @@
(lambda () (lambda ()
(retract-most-recent-slide) (retract-most-recent-slide)
(load-content (load-content
(build-path (collection-path "slideshow") (collection-file-path "tutorial-show.rkt" "slideshow")))))
"tutorial-show.rkt")))))
(page-para* (link "Open File..." (page-para* (link "Open File..."
(lambda () (lambda ()
(let ([file (get-file)]) (let ([file (get-file)])