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

added slide/title/center/timeout

Browse Source 
svn: r7416
This commit is contained in:
Matthew Flatt 2007-09-26 12:50:49 +00:00
parent 4fa78c4298
commit 687deb3f8a
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/slideshow/core.ss
View File

@ -435,6 +435,9 @@
(define (slide/center/timeout t . x) (define (slide/center/timeout t . x)
(apply slide/title/center/inset/timeout #f zero-inset t x)) (apply slide/title/center/inset/timeout #f zero-inset t x))
(define (slide/title/center/timeout s t . x)
(apply slide/title/center/inset/timeout s zero-inset t x))
(define most-recent-slide (define most-recent-slide
(case-lambda (case-lambda
[() (most-recent-slide 0)] [() (most-recent-slide 0)]

1
collects/slideshow/sig.ss
View File

@ -50,6 +50,7 @@
slide/name/tall/inset slide/name/tall/inset
slide/name/center/inset slide/name/center/inset
slide/center/timeout slide/center/timeout
slide/title/center/timeout
most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
scroll-transition pause-transition scroll-transition pause-transition

3
collects/slideshow/slide.ss
View File

@ -101,7 +101,8 @@
title-h get-title-h set-title-h! current-slide-assembler title-h get-title-h set-title-h! current-slide-assembler
current-page-number-font current-page-number-color current-page-number-font current-page-number-color
set-page-numbers-visible! done-making-slides set-page-numbers-visible! done-making-slides
slide/center/timeout) slide/center/timeout
slide/title/center/timeout)
(provide/contract [clickback (provide/contract [clickback
((pict? (lambda (x) ((pict? (lambda (x)
(and (procedure? x) (and (procedure? x)