e12a685107
passed to the error-display-handler during expansion (not just the exn records that actually get raised) the motivation is to do a better job with TR's way of signalling mutiple error messages.
52 lines
1.0 KiB
Racket
52 lines
1.0 KiB
Racket
#lang racket/base
|
|
(require racket/class)
|
|
(provide (all-defined-out))
|
|
|
|
(define-local-member-name
|
|
get-visible-defs
|
|
set-visible-defs
|
|
set-focus-d/i
|
|
get-i
|
|
set-i
|
|
insert-auto-text)
|
|
|
|
;; from module-language-tools.rkt
|
|
(define-local-member-name
|
|
when-initialized
|
|
;move-to-new-language
|
|
get-in-module-language?)
|
|
|
|
;; for keybindings (otherwise private)
|
|
(define-local-member-name
|
|
jump-to-previous-error-loc
|
|
jump-to-next-error-loc)
|
|
|
|
;; defined in module-language.rkt
|
|
(define-local-member-name
|
|
set-lang-wants-big-defs/ints-labels?)
|
|
|
|
;; used by the test suite to tell when the
|
|
;; online check syntax has finished
|
|
(define-local-member-name
|
|
get-online-expansion-colors)
|
|
|
|
|
|
|
|
;; used by the module language
|
|
(define-local-member-name
|
|
frame-show-bkg-running
|
|
set-bottom-bar-most-recent-jumped-to-loc
|
|
set-expand-error/status
|
|
update-frame-expand-error
|
|
expand-error-next
|
|
expand-error-prev
|
|
hide-module-language-error-panel
|
|
fetch-data-to-send
|
|
clear-old-error
|
|
set-bottom-bar-status
|
|
|
|
get-oc-status
|
|
set-oc-status
|
|
|
|
set-dep-paths
|
|
set-dirty-if-dep) |