www

commit 33f98ad0036b899c6c7a6cd7edb37f6ee0235581
parent ff83df9eb1bcca29df6d216279381aecec08254c
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Thu,  8 Jan 2009 01:02:38 +0000

macro stepper: fixed pretty-printing width

svn: r13032

original commit: f6575759ba2177b08ff14a0a581568acc6a92b11

Diffstat:
M
collects/macro-debugger/syntax-browser/widget.ss
 | 
2
+-
M
collects/macro-debugger/view/frame.ss
 | 
1
+

2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss
@@ -196,7 +196,7 @@
             )
           display)))
 
-    (define/private (calculate-columns)
+    (define/public (calculate-columns)
       (define style (code-style -text (send config get-syntax-font-size)))
       (define char-width (send style get-text-width (send -ecanvas get-dc)))
       (define-values (canvas-w canvas-h) (send -ecanvas get-client-size))
diff --git a/collects/macro-debugger/view/frame.ss b/collects/macro-debugger/view/frame.ss
@@ -54,6 +54,7 @@
     (define/override (on-size w h)
       (send config set-width w)
       (send config set-height h)
+      (send config set-columns (send (send widget get-view) calculate-columns))
       (send widget update/preserve-view))
 
     (define warning-panel