Fix contract on filebox to reflect documentation.

original commit: b8d3219b1b8000f367f6660f09e1870a2b857b72
This commit is contained in:
David Van Horn 2012-02-28 19:40:21 -05:00
parent e517a09290
commit c50afd054e
3 changed files with 20 additions and 1 deletions

View File

@ -22,7 +22,7 @@
itemize
aux-elem
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
(() () #:rest (listof pre-content?) . ->* . element?))

View 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.")]

View 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.