(module interfaces mzscheme
(require (lib "class.ss"))
(provide (all-defined))
(define range<%>
(interface ()
get-start
set-start
get-ranges
add-range
all-ranges))
(define syntax-pp-snip-controller<%>
(interface ()
on-select-syntax
))
(define color-controller<%>
(interface ()
get-primary-partition
get-secondary-partition
get-administrative-predicate
))
(define syntax-pp-snip<%>
(interface ()
get-text
get-selected-syntax
get-ranges
get-identifier-list
show-syntax
refresh
))
(define syntax-pp<%>
(interface ()
get-range
get-identifier-list
flat=>stx
stx=>flat))
(define typesetter<%>
(interface ()
get-output-port
get-current-position
finish))
(define syntax-browser<%>
(interface ()
add-syntax
add-separator
select-syntax
))
(define syntax-controller<%>
(interface ()
select-syntax
on-update-identifier=?
add-view
get-views
))
(define syntax-view<%>
(interface ()
get-display-text
props:show-syntax
))
)