Moved unstable/cce/slideshow to unstable/gui/slideshow.
This commit is contained in:
parent
c749b3ece5
commit
5877732abf
|
@ -15,5 +15,3 @@
|
||||||
@include-section["debug.scrbl"]
|
@include-section["debug.scrbl"]
|
||||||
|
|
||||||
@include-section["scribble.scrbl"]
|
@include-section["scribble.scrbl"]
|
||||||
|
|
||||||
@include-section["slideshow.scrbl"]
|
|
||||||
|
|
|
@ -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)
|
|
@ -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"]
|
||||||
|
|
|
@ -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}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user