From ba6819f1ed302be85d5305025cd60de471369faa Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 7 Oct 2006 22:32:25 +0000 Subject: [PATCH] Removed old dead code svn: r4515 original commit: bdc179ebfd884d84bde1efe00e30026d1e70c155 --- collects/macro-debugger/syntax-browser/widget.ss | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss index 7c3a365..2cd8978 100644 --- a/collects/macro-debugger/syntax-browser/widget.ss +++ b/collects/macro-debugger/syntax-browser/widget.ss @@ -46,17 +46,6 @@ (editor -text) (context-menu (make-context-menu))) - ;; 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 (list (- 1 props-percentage) props-percentage))