
(module base scheme/base
  (require "slide.ss"
           scheme/gui/base
           (only-in "core.ss"
                    sliderec?
                    just-a-comment?))

  (current-line-sep 5)

  (case (system-type)
    [(macosx)
     (current-main-font '("Gill Sans" . swiss))]
    [(windows)
     (current-main-font '("Tahoma" . swiss))])
  (current-para-width (* 3/4 client-w))

  (current-titlet (lambda (s)
                    (colorize (text s (current-main-font) 40)
                              (current-title-color))))
  (set-title-h! (pict-height (titlet "Hi")))
  (current-title-color "black")

  (provide (rename-out [slide/kw slide]
                       [sliderec? slide?]
                       [just-a-comment? comment?])
           comment
           most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
	   make-outline
	   (rename-out [item/kw item]
                       [subitem/kw subitem]
                       [para/kw para])
	   gap-size current-font-size current-line-sep
	   current-main-font current-title-color
	   size-in-pixels
	   t it bt bit tt titlet tt* rt
	   bullet o-bullet
	   margin set-margin! 
	   client-w client-h
	   full-page titleless-page
	   printing? condense?
	   skip-slides
	   set-use-background-frame!
	   enable-click-advance!
	   title-h set-title-h! current-slide-assembler
	   current-page-number-font current-page-number-color current-page-number-adjust
           current-titlet current-para-width
	   set-page-numbers-visible! done-making-slides
           clickback make-slide-inset slide-inset? apply-slide-inset))
