macro stepper: fixed pretty-printing width

svn: r13032

original commit: f6575759ba2177b08ff14a0a581568acc6a92b11

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))

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