suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed old dead code

Browse Source 
svn: r4515

original commit: bdc179ebfd884d84bde1efe00e30026d1e70c155
This commit is contained in:
Ryan Culpepper 2006-10-07 22:32:25 +00:00
parent 932f831a25
commit ba6819f1ed
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -46,17 +46,6 @@
(editor -text) (editor -text)
(context-menu (make-context-menu))) (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 -text lock #t)
(send -split-panel set-percentages (send -split-panel set-percentages
(list (- 1 props-percentage) props-percentage)) (list (- 1 props-percentage) props-percentage))