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

use .rkt suffix => avoid a bug when trying to show the file

Browse Source
This commit is contained in:
Eli Barzilay 2010-08-28 23:46:31 -04:00
parent 8328605c1a
commit 3b609eef10
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/slideshow/initial-ones.rkt
View File

@ -8,9 +8,13 @@
slideshow/code
mred
scheme/class
racket/path
racket/runtime-path
(only-in mzlib/etc begin-with-definitions
this-expression-source-directory))
(define-runtime-path tutorial-show "tutorial-show.rkt")
(provide do-initial-slides)
(define (do-initial-slides)
@ -146,7 +150,7 @@
"be viewed while reading the program source")
(blank)
(para #:width client-w "The source is")
(let ([s (path->string (build-path (this-expression-source-directory) "tutorial-show.ss"))])
(let ([s (path->string tutorial-show)])
(clickback
(scale/improve-new-text
(let ([p (tt s)])
@ -156,14 +160,11 @@
"blue"))
(min 1 (/ (* 0.8 client-w ) (pict-width (tt s)))))
(lambda ()
(let* ([f (new frame%
[label "tutorial-show.ss"]
[width 600]
[height 400])]
(let* ([f (new frame% [label (path-element->string
(file-name-from-path tutorial-show))]
[width 600] [height 400])]
[e (new text%)]
[c (new editor-canvas%
[parent f]
[editor e])])
[c (new editor-canvas% [parent f] [editor e])])
(send e load-file s)
(send e change-style
(make-object style-delta% 'change-family 'modern)