;; 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)])) )