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

Added show/hide props to context menu

Browse Source 
Added refresh after policy change through context menu

svn: r4523
This commit is contained in:
Ryan Culpepper 2006-10-08 04:17:12 +00:00
parent d2fbbc4a9b
commit e962922e9d
4 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/tool.ss
View File

@ -28,7 +28,7 @@
[SBMENU : sb:context-menu^ (sb:context-menu@ SBSNIP)] [SBMENU : sb:context-menu^ (sb:context-menu@ SBSNIP)]
[SBSNIP : sb:snip^ (sb:global-snip@)] [SBSNIP : sb:snip^ (sb:global-snip@)]
[SBWMENU : sb:context-menu^ (sb:widget-context-menu-extension@ SBMENU)] [SBWMENU : sb:context-menu^ (sb:widget-context-menu-extension@ SBMENU)]
[VMENU : sb:context-menu^ (view:context-menu-extension@ SBMENU)] [VMENU : sb:context-menu^ (view:context-menu-extension@ SBWMENU)]
[SBWIDGET : sb:widget^ (sb:widget@ SBKEYMAP SBWMENU)] [SBWIDGET : sb:widget^ (sb:widget@ SBKEYMAP SBWMENU)]
[VWIDGET : sb:widget^ (view:browser-extension@ SBWIDGET VMENU)] [VWIDGET : sb:widget^ (view:browser-extension@ SBWIDGET VMENU)]
[BASE : view:view-base^ (view-base/tool@)] [BASE : view:view-base^ (view-base/tool@)]

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

@ -423,7 +423,10 @@
(lambda (tag message) (lambda (tag message)
(unless warnings-frame (unless warnings-frame
(set! warnings-frame (new warnings-frame%))) (set! warnings-frame (new warnings-frame%)))
(send warnings-frame add-warning tag)))) (send warnings-frame add-warning tag)
#;
(send warnings-frame add-text
(format "Warning: ~a~n" message)))))
(let-values ([(d s) (hide/policy deriv show-macro?)]) (let-values ([(d s) (hide/policy deriv show-macro?)])
d))) d)))
deriv))) deriv)))
@ -531,9 +534,14 @@
(void)) (void))
(define/private (do-show) (define/private (do-show)
(send (get-prefs-panel) add-show-identifier)) (send* (get-prefs-panel)
(add-show-identifier)
(refresh)))
(define/private (do-hide) (define/private (do-hide)
(send (get-prefs-panel) add-hide-identifier)) (send* (get-prefs-panel)
(add-hide-identifier)
(refresh)))
(define/override (on-demand) (define/override (on-demand)
(define-values (opaque transparent) (define-values (opaque transparent)
@ -561,11 +569,10 @@
(define syntax-widget% (define syntax-widget%
(class pre:syntax-widget% (class pre:syntax-widget%
(init-field macro-stepper) (init-field macro-stepper)
(inherit get-controller)
(define/override (make-context-menu) (define/override (make-context-menu)
(new context-menu% (new context-menu%
(controller (get-controller)) (widget this)
(macro-stepper macro-stepper))) (macro-stepper macro-stepper)))
(super-new))))) (super-new)))))
) )

2
collects/macro-debugger/view/hiding-panel.ss
View File

@ -109,7 +109,7 @@
(define/public (get-policy) policy) (define/public (get-policy) policy)
;; refresh ;; refresh
(define/private (refresh) (define/public (refresh)
(when enabled? (when enabled?
(send stepper refresh/resynth))) (send stepper refresh/resynth)))

4
collects/macro-debugger/view/warning.ss
View File

@ -37,7 +37,7 @@
"The macro stepper is only hiding macro after the " "The macro stepper is only hiding macro after the "
"lifts are caught."))) "lifts are caught.")))
(define/private (add-text . strs) (define/public (add-text . strs)
(send text lock #f) (send text lock #f)
(for-each (lambda (s) (send text insert s)) strs) (for-each (lambda (s) (send text insert s)) strs)
(send text insert "\n\n") (send text insert "\n\n")
@ -51,7 +51,7 @@
(add-localactions-text)) (add-localactions-text))
((lifts) ((lifts)
(add-lifts-text)))) (add-lifts-text))))
(send this show #t))) (send this show #t)))
) )