Moved unstable/cce/slideshow to unstable/gui/slideshow.

This commit is contained in:
Carl Eastlund 2010-05-30 15:33:50 -04:00
parent c749b3ece5
commit 5877732abf
4 changed files with 10 additions and 12 deletions

View File

@ -15,5 +15,3 @@
@include-section["debug.scrbl"] @include-section["debug.scrbl"]
@include-section["scribble.scrbl"] @include-section["scribble.scrbl"]
@include-section["slideshow.scrbl"]

View File

@ -1,7 +1,7 @@
#lang scheme #lang racket
(require slideshow/base slideshow/pict (require slideshow/base slideshow/pict
scheme/splicing scheme/stxparam scheme/gui/base racket/splicing racket/stxparam racket/gui/base
unstable/define) unstable/define)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -224,7 +224,7 @@
(block body ...))) (block body ...)))
(begin (staged-computation name 'name) ...)))))])) (begin (staged-computation name 'name) ...)))))]))
(define-syntax-rule (slide/stage [name ...] body ...) (define-syntax-rule (slide/staged [name ...] body ...)
(staged [name ...] (slide body ...))) (staged [name ...] (slide body ...)))
(define-syntax-rule (before name) (< stage name)) (define-syntax-rule (before name) (< stage name))
@ -301,7 +301,7 @@
[show (->* [pict?] [any/c] pict?)] [show (->* [pict?] [any/c] pict?)]
[strike (->* [pict?] [any/c] pict?)] [strike (->* [pict?] [any/c] pict?)]
[shade (->* [pict?] [any/c #:ratio (real-in 0 1)] pict?)]) [shade (->* [pict?] [any/c #:ratio (real-in 0 1)] pict?)])
(provide staged slide/stage stage stage-name (provide staged slide/staged stage stage-name
before at after before/at at/after except before at after before/at at/after except
pict-if pict-cond pict-case pict-match pict-if pict-cond pict-case pict-match
pict-combine with-pict-combine) pict-combine with-pict-combine)

View File

@ -10,4 +10,5 @@
@include-section["gui/language-level.scrbl"] @include-section["gui/language-level.scrbl"]
@include-section["gui/notify.scrbl"] @include-section["gui/notify.scrbl"]
@include-section["gui/prefs.scrbl"] @include-section["gui/prefs.scrbl"]
@include-section["gui/slideshow.scrbl"]
@include-section["gui/window.scrbl"] @include-section["gui/window.scrbl"]

View File

@ -1,13 +1,12 @@
#lang scribble/doc #lang scribble/manual
@(require scribble/manual @(require "../utils.rkt"
"../scribble.ss"
(for-label slideshow (for-label slideshow
unstable/contract unstable/contract
unstable/cce/slideshow)) unstable/gui/slideshow))
@title[#:style 'quiet #:tag "cce-slideshow"]{Slideshow Presentations} @title{Slideshow Presentations}
@defmodule[unstable/cce/slideshow] @defmodule[unstable/gui/slideshow]
@section{Text Formatting} @section{Text Formatting}