From 1d882e9a54717f9cded074516a2d98d0e377b22f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Feb 2005 20:07:27 +0000 Subject: [PATCH] . original commit: 90ae527b508977d5bcf7dd99990d76e1d8f1c7ef --- collects/framework/private/color-prefs.ss | 7 ------- 1 file changed, 7 deletions(-) diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.ss index 41c93bc2..82525d2c 100644 --- a/collects/framework/private/color-prefs.ss +++ b/collects/framework/private/color-prefs.ss @@ -168,13 +168,6 @@ (for-each (λ (fs v) ((cdr fs) style v)) style-delta-get/set info) 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?) (let ((sd (make-object style-delta%))) (send sd set-delta-foreground color)