www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

commit 67a7b38e94f68bda5bb332a07299ca0debcae125
parent 64cef9c489bdef9aea734934b49e1070e12b9d87
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Thu, 25 Jan 2007 05:11:05 +0000

Macro stepper: show/hide props reflows syntax display

svn: r5451

original commit: cf3da5cf7dd09898315e702537c378ba77992d34

Diffstat:
Mcollects/macro-debugger/syntax-browser/widget.ss | 7+++----
1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss @@ -49,10 +49,9 @@ (send -text lock #t) (send -split-panel set-percentages (list (- 1 props-percentage) props-percentage)) - (toggle-props) - + ;; syntax-properties-controller<%> methods - + (define/public (set-syntax stx) (send props set-syntax stx)) @@ -135,7 +134,7 @@ (define char-width (send style get-text-width (send -ecanvas get-dc))) (define-values (canvas-w canvas-h) (send -ecanvas get-client-size)) (sub1 (inexact->exact (floor (/ canvas-w char-width))))) - + (super-new))) ))