From 33f98ad0036b899c6c7a6cd7edb37f6ee0235581 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 8 Jan 2009 01:02:38 +0000 Subject: [PATCH] macro stepper: fixed pretty-printing width svn: r13032 original commit: f6575759ba2177b08ff14a0a581568acc6a92b11 --- collects/macro-debugger/syntax-browser/widget.ss | 2 +- 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 index 3b0a36b..d202d2e 100644 --- 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 index 29688ba..4cd2f15 100644 --- 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