www

commit ba6819f1ed302be85d5305025cd60de471369faa
parent 932f831a25f9251cc321a5d95492d88fcb7e16c5
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Sat,  7 Oct 2006 22:32:25 +0000

Removed old dead code

svn: r4515

original commit: bdc179ebfd884d84bde1efe00e30026d1e70c155

Diffstat:
M
collects/macro-debugger/syntax-browser/widget.ss
 | 
11
-----------

1 file changed, 0 insertions(+), 11 deletions(-)
diff --git 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))