suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Macro stepper: show/hide props reflows syntax display

Browse Source 
svn: r5451
This commit is contained in:
Ryan Culpepper 2007-01-25 05:11:05 +00:00
parent 9774e0926d
commit cf3da5cf7d
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -49,7 +49,6 @@
(send -text lock #t) (send -text lock #t)
(send -split-panel set-percentages (send -split-panel set-percentages
(list (- 1 props-percentage) props-percentage)) (list (- 1 props-percentage) props-percentage))
(toggle-props)
;; syntax-properties-controller<%> methods ;; syntax-properties-controller<%> methods

15
collects/macro-debugger/view/gui.ss
View File

@ -196,6 +196,7 @@
(frame:reorder-menus this) (frame:reorder-menus this)
)) ))
;; macro-stepper-widget% ;; macro-stepper-widget%
(define macro-stepper-widget% (define macro-stepper-widget%
(class* object% () (class* object% ()
@ -251,7 +252,6 @@
(parent area) (parent area)
(macro-stepper this) (macro-stepper this)
(pref:props-percentage pref:props-percentage))) (pref:props-percentage pref:props-percentage)))
(send sbview show-props (send config get-show-syntax-properties?))
(send config listen-show-syntax-properties? (send config listen-show-syntax-properties?
(lambda (show?) (send sbview show-props show?))) (lambda (show?) (send sbview show-props show?)))
@ -265,7 +265,6 @@
(config config))) (config config)))
(send config listen-show-hiding-panel? (send config listen-show-hiding-panel?
(lambda (show?) (show-macro-hiding-prefs show?))) (lambda (show?) (show-macro-hiding-prefs show?)))
(show-macro-hiding-prefs (send config get-show-hiding-panel?))
(send sbc add-selection-listener (send sbc add-selection-listener
(lambda (stx) (send macro-hiding-prefs set-syntax stx))) (lambda (stx) (send macro-hiding-prefs set-syntax stx)))
@ -560,7 +559,7 @@
(extract-protostep-seq step))])))) (extract-protostep-seq step))]))))
;; restore-position : number -> void ;; restore-position : number -> void
(define (restore-position) (define/private (restore-position)
(define (advance) (define (advance)
(let ([step (cursor:current steps)]) (let ([step (cursor:current steps)])
(cond [(not step) (cond [(not step)
@ -660,7 +659,10 @@
;; Initialization ;; Initialization
(super-new) (super-new)
(refresh/move/cached-prefix))) (send sbview show-props (send config get-show-syntax-properties?))
(show-macro-hiding-prefs (send config get-show-hiding-panel?))
(refresh/move/cached-prefix)
))
;; Main entry points ;; Main entry points
@ -767,6 +769,11 @@
(editor text) (editor text)
(widget this) (widget this)
(macro-stepper macro-stepper))) (macro-stepper macro-stepper)))
(define/override (show-props show?)
(super show-props show?)
(send macro-stepper update/preserve-view))
(super-new))))) (super-new)))))
;; Linking ;; Linking