fixed PR 8887

svn: r7194 original commit: 7fc8d8c8883df0183e1aeea67498125f0371a5f2
2007-08-27 15:18:23 +00:00 · 2007-08-27 15:18:23 +00:00 · 6fe31e9ff4
commit 6fe31e9ff4
parent ca22785970
1 changed files with 9 additions and 6 deletions
--- a/collects/framework/private/color-prefs.ss
+++ b/collects/framework/private/color-prefs.ss
@ -21,12 +21,15 @@
    (opt-lambda (parent 
                 pref-sym
                 style-name
-                 example-text
-                 [update-style-delta
-                  (λ (func)
-                    (let ([delta (preferences:get pref-sym)])
-                      (func delta)
-                      (preferences:set pref-sym delta)))])
+                 example-text)
+      (define (update-style-delta func)
+        (func working-delta)
+        (let ([nd (new style-delta%)])
+          (send nd copy working-delta)
+          (preferences:set pref-sym nd)))
+      (define working-delta (let ([sd (new style-delta%)])
+                              (send sd copy (preferences:get pref-sym))
+                              sd))
      (define hp (new horizontal-panel%
                      [parent parent]
                      [style '(border)]