sig.ss
(module sig mzscheme
  (require (lib "unitsig.ss"))

  (provide config^ viewer^ core^
	   cmdline^)

  ;; Configuration inputs to the core unit:
  (define-signature config^
    (base-font-size             ; normally 32
     screen-w screen-h          ; logical size, normally 1024x768
     use-screen-w use-screen-h  ; "pixel" size
     pixel-scale                ; amount the "pixels" are scaled (e.g., for quad)
     condense? printing?        ; mode
     smoothing?))
     
  ;; Viewer inputs to the core unit:
  (define-signature viewer^
    (;; Registering slides:
     add-talk-slide!
     retract-talk-slide!
     most-recent-talk-slide
     ;; Pass-through of slide-program requests:
     set-init-page!
     set-use-background-frame!
     enable-click-advance!
     set-page-numbers-visible!
     done-making-slides
     ;; Called when a clickback-containing slide is rendered:
     add-click-region!
     
     
     ;; added for frtime
     get-current-page
     get-current-mouse-x/b
     get-current-mouse-y/b
     get-key-events
     
     
     ))

  ;; The core unit's exports, which are the functions used by a
  ;; Slideshow program:
  (define-signature core^
    (slide
     slide/title
     slide/title/tall
     slide/center
     slide/title/center 
     slide/inset
     slide/title/inset
     slide/title/tall/inset
     slide/center/inset
     slide/title/center/inset
     slide/name 
     slide/name/tall 
     slide/name/center 
     slide/name/inset
     slide/name/tall/inset
     slide/name/center/inset
     
     most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
     scroll-transition pause-transition
     comment make-outline
     item item* page-item page-item*
     item/bullet item*/bullet page-item/bullet page-item*/bullet
     subitem subitem* page-subitem page-subitem*
     itemize itemize* page-itemize page-itemize*
     para para* page-para page-para*
     para/c para/r para*/c para*/r page-para/c page-para/r page-para*/c page-para*/r
     font-size gap-size current-font-size line-sep title-size 
     main-font current-main-font with-font current-title-color
     red green blue purple orange size-in-pixels
     t it bt bit tt titlet tt* rt
     bullet o-bullet
     get-margin set-margin! get-client-w get-client-h
     get-full-page get-titleless-page
     skip-slides
     set-use-background-frame!
     enable-click-advance!
     get-title-h set-title-h! current-slide-assembler
     current-page-number-font current-page-number-color
     set-page-numbers-visible! done-making-slides
     clickback 
     make-slide-inset
     apply-slide-inset
     condense?
     printing?
     
     ;; Added
     get-page-number
     get-current-slide-time
     get-current-mouse-x
     get-current-mouse-y
     get-current-key-events
     ;; end of added
     ))

  ;; ----------------------------------------

  ;; Extra cmdline inputs to a viewer:
  (define-signature cmdline^
    ((open config^)
     file-to-load ; #f or a path/string
     init-page
     use-transitions? 
     print-slide-seconds?
     show-page-numbers?
     commentary?
     use-offscreen?
     actual-screen-w actual-screen-h ; actual size (center use- within here)
     trust-me?
     quad-view?
     keep-titlebar?
     two-frames?
     use-prefetch?
     use-prefetch-in-preview?
     print-target
     talk-duration-minutes)))