From b59b3e692c7f5c2ebafeffdd3f74a8e7d8834e30 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 11 Sep 2006 13:47:27 +0000 Subject: [PATCH] Font size changes; prefs setting overrides default svn: r4308 original commit: ba5c8d5b07b7e37322cd6f4fee2a0a193ac2b467 --- collects/macro-debugger/syntax-browser/widget.ss | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss index 68cf4d1..507d182 100644 --- a/collects/macro-debugger/syntax-browser/widget.ss +++ b/collects/macro-debugger/syntax-browser/widget.ss @@ -36,6 +36,17 @@ (new syntax-controller% (properties-controller this))) + ;; FIXME: Why doesn't this work? + #; + (when (current-syntax-font-size) + (let* ([style-list (send -text get-style-list)] + [standard (send style-list find-named-style "Standard")]) + (send style-list replace-named-style "Standard" + (send style-list find-or-create-style + standard + (make-object style-delta% 'change-size + (current-syntax-font-size)))))) + (send -text lock #t) (send -split-panel set-percentages (let ([pp (pref:props-percentage)]) (list (- 1 pp) pp))) @@ -125,9 +136,8 @@ (send new-colorer highlight-syntaxes hi-stxs hi-color))))))) (define/private (calculate-columns) - (define style-list (send -text get-style-list)) - (define standard (send style-list find-named-style "Standard")) - (define char-width (send standard get-text-width (send -ecanvas get-dc))) + (define style (code-style -text)) + (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)))))