suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

embedded-gui docs

Browse Source 
svn: r9389

original commit: 6fcc293c4a3422e162b06fc4264a975cadfb8570
This commit is contained in:
Matthew Flatt 2008-04-21 20:51:23 +00:00
parent e509e38f20
commit a38f25cccd
1 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
collects/scribble/manual.ss
View File

@ -1317,11 +1317,12 @@
(to-flow (hspace 1)) (to-flow (hspace 1))
(loop (cdr res)))))))))) (loop (cdr res))))))))))
res))] res))]
[(tagged+arg-width) (+ (prototype-size args max max #t)
(prototype-depth prototype)
(element-width tagged))]
[(result-next-line?) ((+ (if short? [(result-next-line?) ((+ (if short?
flat-size flat-size
(+ (prototype-size args max max #t) tagged+arg-width)
(prototype-depth prototype)
(element-width tagged)))
(block-width res)) (block-width res))
. >= . (- max-proto-width 7))] . >= . (- max-proto-width 7))]
[(end) (list (to-flow spacer) [(end) (list (to-flow spacer)
@ -1332,6 +1333,7 @@
(list (list
(list (make-flow (list (make-flow
(if short? (if short?
;; The single-line case:
(make-table-if-necessary (make-table-if-necessary
"prototype" "prototype"
(list (list
@ -1358,31 +1360,38 @@
(if result-next-line? (if result-next-line?
null null
end)))) end))))
;; The multi-line case:
(let ([not-end (let ([not-end
(if result-next-line? (if result-next-line?
(list (to-flow spacer)) (list (to-flow spacer))
(list (to-flow spacer) (list (to-flow spacer)
(to-flow spacer) (to-flow spacer)
(to-flow spacer) (to-flow spacer)
(to-flow spacer)))]) (to-flow spacer)))]
[one-ok? (tagged+arg-width . < . 40)])
(list (list
(make-table (make-table
"prototype" "prototype"
(cons (cons
(list* (to-flow (make-element (cons (to-flow (make-element
#f #f
(list (list
(schemeparenfont (make-string (add1 (prototype-depth prototype)) #\()) (schemeparenfont (make-string (add1 (prototype-depth prototype)) #\())
tagged))) tagged)))
(cond (if one-ok?
[(arg-starts-optional? (car args)) (list*
(to-flow (make-element #f (list spacer "[")))] (cond
[else [(arg-starts-optional? (car args))
(to-flow spacer)]) (to-flow (make-element #f (list spacer "[")))]
(to-flow [else
((arg->elem #f) (car args))) (to-flow spacer)])
not-end) (to-flow
(let loop ([args (cdr args)]) ((arg->elem #f) (car args)))
not-end)
(list* 'cont 'cont not-end)))
(let loop ([args (if one-ok?
(cdr args)
args)])
(if (null? args) (if (null? args)
null null
(let ([dots-next? (or (and (pair? (cdr args)) (let ([dots-next? (or (and (pair? (cdr args))