From e3e3acb9c83351d1b2b1064a7dac2c81b79249e0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Sep 2013 14:47:47 -0400 Subject: [PATCH] slideshow: fix tutorial show --- pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt | 2 +- pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt b/pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt index a11a0d8519..874423aa2f 100644 --- a/pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt +++ b/pkgs/slideshow-pkgs/slideshow-exe/slideshow/initial-ones.rkt @@ -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")) diff --git a/pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt b/pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt index 812f5fe854..dc21dcd4a6 100644 --- a/pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt +++ b/pkgs/slideshow-pkgs/slideshow-exe/slideshow/start.rkt @@ -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)])