From 67a7b38e94f68bda5bb332a07299ca0debcae125 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 25 Jan 2007 05:11:05 +0000 Subject: [PATCH] Macro stepper: show/hide props reflows syntax display svn: r5451 original commit: cf3da5cf7dd09898315e702537c378ba77992d34 --- collects/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 index 40dc3e8..78c6320 100644 --- 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))) ))