(module interfaces mzscheme
(require (lib "class.ss"))
(provide (all-defined))
(define controller<%>
(interface ()
run
run-model
clear-model
get-view
get-root-model
on-model-status-change
on-view-selection-change
select-model
))
(define model<%>
(interface ()
run
clear
get-status
executed?
success?
failure?
error?
get-parent
get-name
get-test
get-view-link
set-view-link
get-controller
))
(define model-case<%>
(interface (model<%>)
get-result
get-timing
get-output
get-property
get-property-set
))
(define model-suite<%>
(interface (model<%>)
get-children
set-children
on-child-status-change
))
(define view<%>
(interface ()
show-model
set-selection
update-model-view
get-controller
get-selected-model
))
(define model->rml<%>
(interface ()
model->rml/long
model->rml/short
))
(define style-map<%>
(interface ()
get-style))
(define ext:text<%>
(interface ()
text-insert
text-insert/click))
(define rml:text<%>
(interface (ext:text<%>)
render
render-top-level
render-inline
))
(define rml:text:display<%>
(interface (rml:text<%>)
display
display/tail
append
append/tail
))
)