graphical-ui.ss
;; graphical-ui
;; Implements a user interface for SchemeUnit tests using the MrEd toolkit.

(module graphical-ui mzscheme
  (require (lib "class.ss")
           "gui/controller.ss"
           "gui/model.ss"
           "gui/view.ss")
  
  (provide test/graphical-ui)
  
  (define (make-graphical-ui test)
    (instantiate controller% ()
      (model-case% model-case%) (model-suite% model-suite%)
      (view% view%) (test test)))

  (define test/graphical-ui
    (case-lambda 
      [(test)
       (test/graphical-ui test #t)]
      [(test run?)
       (let ((gui (make-graphical-ui test)))
         (when run? (send gui run-model (send gui get-root-model)))
         gui)]))
  
  )