Fix contract on filebox to reflect documentation.
original commit: b8d3219b1b8000f367f6660f09e1870a2b857b72
This commit is contained in:
parent
e517a09290
commit
c50afd054e
|
@ -22,7 +22,7 @@
|
||||||
itemize
|
itemize
|
||||||
aux-elem
|
aux-elem
|
||||||
code-inset)
|
code-inset)
|
||||||
(provide/contract [filebox ((or/c core:element? string?) pre-flow? . -> . block?)])
|
(provide/contract [filebox (((or/c core:element? string?)) () #:rest (listof pre-flow?) . ->* . block?)])
|
||||||
|
|
||||||
(define styling-f/c
|
(define styling-f/c
|
||||||
(() () #:rest (listof pre-content?) . ->* . element?))
|
(() () #:rest (listof pre-content?) . ->* . element?))
|
||||||
|
|
12
collects/tests/scribble/docs/filebox.scrbl
Normal file
12
collects/tests/scribble/docs/filebox.scrbl
Normal file
|
@ -0,0 +1,12 @@
|
||||||
|
#lang scribble/manual
|
||||||
|
|
||||||
|
@; An empty filebox
|
||||||
|
@filebox["zero.txt"]
|
||||||
|
|
||||||
|
@filebox["one.txt"]{
|
||||||
|
A file box with one thing in it.
|
||||||
|
}
|
||||||
|
|
||||||
|
@filebox["two.txt"
|
||||||
|
(tt "A filebox ")
|
||||||
|
(tt "with multiple things in it.")]
|
7
collects/tests/scribble/docs/filebox.txt
Normal file
7
collects/tests/scribble/docs/filebox.txt
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
"zero.txt"
|
||||||
|
|
||||||
|
"one.txt"
|
||||||
|
A file box with one thing in it.
|
||||||
|
|
||||||
|
"two.txt"
|
||||||
|
A filebox with multiple things in it.
|
Loading…
Reference in New Issue
Block a user