From 2f4e4df213fe496778dd9c041d25b250a5c2effe Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 1 Feb 2007 23:18:19 +0000 Subject: [PATCH] Macro stepper: nicer looking syntax snip props view svn: r5535 --- collects/macro-debugger/syntax-browser/properties.ss | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/properties.ss b/collects/macro-debugger/syntax-browser/properties.ss index f326b4447b..2660cc1917 100644 --- a/collects/macro-debugger/syntax-browser/properties.ss +++ b/collects/macro-debugger/syntax-browser/properties.ss @@ -37,8 +37,9 @@ (lock #f) (begin-edit-sequence) (erase)) - (when (syntax? selected-syntax) - (refresh/mode mode)) + (if (syntax? selected-syntax) + (refresh/mode mode) + (refresh/mode #f)) (send* text (end-edit-sequence) (lock #t) @@ -49,7 +50,7 @@ (case mode ((term) (send pdisplayer display-meaning-info selected-syntax)) ((stxobj) (send pdisplayer display-stxobj-info selected-syntax)) - ((#f) (void)) + ((#f) (send pdisplayer display-null-info)) (else (error 'properties-view%:refresh "internal error: no such mode: ~s" mode)))) ;; text : text% @@ -59,6 +60,7 @@ (send text set-styles-sticky #f) #;(send text hide-caret #t) (send text lock #t) + (refresh) (super-new))) @@ -123,6 +125,10 @@ (class* object% () (init-field text) + ;; display-null-info : -> void + (define/public (display-null-info) + (display "No syntax selected\n" n/a-sd)) + ;; display-meaning-info : syntax -> void (define/public (display-meaning-info stx) (when (and (identifier? stx)