47 lines
918 B
Scheme
47 lines
918 B
Scheme
|
|
#lang scheme/base
|
|
(require scheme/unit)
|
|
(provide (all-defined-out))
|
|
|
|
;; Signatures
|
|
|
|
(define-signature view^
|
|
(macro-stepper-frame%
|
|
macro-stepper-widget%
|
|
make-macro-stepper
|
|
go
|
|
go/deriv))
|
|
|
|
(define-signature view-base^
|
|
(base-frame%))
|
|
|
|
(define-signature prefs^
|
|
(pref:width
|
|
pref:height
|
|
pref:props-percentage
|
|
pref:macro-hiding-mode
|
|
pref:show-syntax-properties?
|
|
pref:show-hiding-panel?
|
|
pref:identifier=?
|
|
pref:show-rename-steps?
|
|
pref:highlight-foci?
|
|
pref:highlight-frontier?
|
|
pref:suppress-warnings?
|
|
pref:one-by-one?
|
|
pref:extra-navigation?
|
|
pref:debug-catch-errors?
|
|
pref:force-letrec-transformation?
|
|
))
|
|
|
|
;; macro-stepper-config%
|
|
;; all fields are notify-box% objects
|
|
;; width
|
|
;; height
|
|
;; macro-hiding?
|
|
;; hide-primitives?
|
|
;; hide-libs?
|
|
;; show-syntax-properties?
|
|
;; show-hiding-panel?
|
|
;; show-rename-steps?
|
|
;; highlight-foci?
|