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

.

Browse Source 
original commit: 90ae527b508977d5bcf7dd99990d76e1d8f1c7ef
This commit is contained in:
Robby Findler 2005-02-21 20:07:27 +00:00
parent 98923fc7ef
commit 1d882e9a54
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/color-prefs.ss
View File

@ -168,13 +168,6 @@
(for-each (λ (fs v) ((cdr fs) style v)) style-delta-get/set info) (for-each (λ (fs v) ((cdr fs) style v)) style-delta-get/set info)
style)) style))
(define (set-default sym code-style)
(preferences:set-default
sym
code-style
(λ (x)
(is-a? x style-delta%))))
(define (make-style-delta color bold? underline? italic?) (define (make-style-delta color bold? underline? italic?)
(let ((sd (make-object style-delta%))) (let ((sd (make-object style-delta%)))
(send sd set-delta-foreground color) (send sd set-delta-foreground color)