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