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

..

Browse Source 
original commit: a43b63ff8d0452ba1469a70075aa8c8ed64f600f
This commit is contained in:
Robby Findler 2003-11-24 20:12:02 +00:00
parent 60bf825cde
commit e37ae09c1b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/preferences.ss
View File

@ -63,7 +63,10 @@
;; periodically checks to see if changes need to be written out. ;; periodically checks to see if changes need to be written out.
(define (start-writing-timer) (define (start-writing-timer)
(set! no-more-defaults? #t) (set! no-more-defaults? #t)
(new timer% ;; don't actually start the timer anymore.
;; turns out that preferences are set far too often
;; and I need a better test for when things should be written out.
'(new timer%
[notify-callback (lambda () (maybe-flush-changes))] [notify-callback (lambda () (maybe-flush-changes))]
[interval (* 10 1000)]) [interval (* 10 1000)])
(void)) (void))