diff --git a/collects/slideshow/core.ss b/collects/slideshow/core.ss index ade83a836f..9a3437673c 100644 --- a/collects/slideshow/core.ss +++ b/collects/slideshow/core.ss @@ -435,6 +435,9 @@ (define (slide/center/timeout 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 (case-lambda [() (most-recent-slide 0)] diff --git a/collects/slideshow/sig.ss b/collects/slideshow/sig.ss index 512a6b5de7..1bfe832e98 100644 --- a/collects/slideshow/sig.ss +++ b/collects/slideshow/sig.ss @@ -50,6 +50,7 @@ slide/name/tall/inset slide/name/center/inset slide/center/timeout + slide/title/center/timeout most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide scroll-transition pause-transition diff --git a/collects/slideshow/slide.ss b/collects/slideshow/slide.ss index a678cdd5d9..9b60ef41a2 100644 --- a/collects/slideshow/slide.ss +++ b/collects/slideshow/slide.ss @@ -101,7 +101,8 @@ title-h get-title-h set-title-h! current-slide-assembler current-page-number-font current-page-number-color set-page-numbers-visible! done-making-slides - slide/center/timeout) + slide/center/timeout + slide/title/center/timeout) (provide/contract [clickback ((pict? (lambda (x) (and (procedure? x)