37 lines
935 B
Racket
37 lines
935 B
Racket
#lang at-exp racket/base
|
|
(require racket/contract
|
|
racket/class
|
|
"private/syncheck/traversals.rkt"
|
|
"private/syncheck/intf.rkt"
|
|
"private/syncheck/local-member-names.rkt")
|
|
|
|
(provide/contract
|
|
[make-traversal
|
|
(-> namespace?
|
|
(or/c path-string? #f)
|
|
(values (->* (syntax?) ((-> syntax? void?)) void?)
|
|
(-> void?)))]
|
|
[syncheck-annotations<%>
|
|
interface?]
|
|
[current-annotations
|
|
(parameter/c (or/c #f (is-a?/c syncheck-annotations<%>)))]
|
|
[annotations-mixin
|
|
(and/c mixin-contract
|
|
(-> any/c (implementation?/c syncheck-annotations<%>)))])
|
|
|
|
;; methods in syncheck-annotations<%>
|
|
(provide
|
|
syncheck:find-source-object
|
|
syncheck:add-background-color
|
|
syncheck:add-require-open-menu
|
|
syncheck:add-docs-menu
|
|
syncheck:add-rename-menu
|
|
syncheck:add-arrow
|
|
syncheck:add-tail-arrow
|
|
syncheck:add-mouse-over-status
|
|
syncheck:add-jump-to-definition
|
|
syncheck:color-range)
|
|
|
|
|
|
|