1(module base scheme/base
2  (require "slide.rkt"
3           scheme/gui/base
4           "private/aspect.rkt"
5           (only-in "core.rkt"
6                    sliderec?
7                    just-a-comment?))
8
9  (current-line-sep 5)
10
11  (case (system-type)
12    [(macosx)
13     (current-main-font '("Gill Sans" . swiss))]
14    [(windows)
15     (current-main-font '("Tahoma" . swiss))])
16
17  (define current-para-width (hash-ref current-para-widths #f))
18  (for ([(aspect current-para-width) (in-hash current-para-widths)])
19    (current-para-width (* 3/4 (get-client-w #:aspect aspect))))
20
21  (current-titlet (lambda (s)
22                    (colorize (text s (current-main-font) 40)
23                              (current-title-color))))
24  (set-title-h! (pict-height (titlet "Hi")))
25  (current-title-color "black")
26
27  (provide (rename-out [slide/kw slide]
28                       [sliderec? slide?]
29                       [just-a-comment? comment?])
30           comment
31           most-recent-slide retract-most-recent-slide re-slide slide->pict start-at-recent-slide
32	   make-outline
33	   (rename-out [item/kw item]
34                       [subitem/kw subitem]
35                       [para/kw para])
36	   gap-size current-gap-size current-font-size current-line-sep
37	   current-main-font current-title-color
38	   size-in-pixels
39	   t it bt bit tt titlet tt* rt
40	   bullet o-bullet
41	   margin set-margin!
42	   client-w client-h
43	   full-page titleless-page
44	   printing? condense?
45	   skip-slides
46	   set-use-background-frame!
47	   enable-click-advance!
48           commentary-on-slide-font-size
49	   title-h set-title-h! current-slide-assembler
50	   current-page-number-font current-page-number-color current-page-number-adjust
51           current-titlet current-para-width
52	   set-page-numbers-visible! done-making-slides
53           set-spotlight-style! set-allow-new-slides-after-close!
54           pict->pre-render-pict
55           clickback interactive make-slide-inset slide-inset? apply-slide-inset
56           get-client-w get-client-h get-full-page get-titleless-page get-current-para-width
57           aspect?))
58