31 lines
1012 B
Scheme
31 lines
1012 B
Scheme
(module text-defs mzscheme
|
|
(require (lib "unitsig.ss") "checksigs.ss")
|
|
|
|
(provide text-defs@)
|
|
|
|
(define text-defs@
|
|
(unit/sig defs^ (import)
|
|
|
|
(define (run-thunk th) (th))
|
|
|
|
;; string (list string (listof string)) (union (listof string) #f) -> void
|
|
(define (show-ok title captions details ok-thunk) ; ok-thunk for gui, ignore here
|
|
(printf "~a\n" (car captions))
|
|
(for-each (lambda (c) (printf " ~a\n" c)) (cdr captions))
|
|
(when (and details (not (null? details)))
|
|
(printf "Details:\n")
|
|
(for-each (lambda (d) (printf " ~a\n" d)) details)))
|
|
|
|
(define (show-error-ok title caption)
|
|
(show-ok title (list (format "Error: ~a" caption)) #f void))
|
|
|
|
(define (make-wait-dialog parent title caption close-fun)
|
|
(list title caption))
|
|
|
|
(define (show-wait-dialog dialog)
|
|
;; dialog is the pair returned by make-wait-dialog
|
|
(printf "~a\n" (cadr dialog)))
|
|
|
|
(define (hide-wait-dialog dialog)
|
|
(void)))))
|