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")
(blank)
(size-in-pixels
(bitmap (build-path (collection-path "icons") "PLT-206.png")))
(bitmap (collection-file-path "PLT-206.png" "icons")))
(blank)
(colorize (it "Press the spacebar to continue") "blue")
(comment "Welcome to Slideshow"))

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

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