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

made a timer with a 1 second delay to avoid writing to the file system too much under linux

Browse Source 
svn: r7478
This commit is contained in:
Robby Findler 2007-10-10 20:52:33 +00:00
parent 992eff0c63
commit a62eed0c16
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/drscheme/private/unit.ss
View File

@ -2077,18 +2077,23 @@ module browser threading seems wrong.
(preferences:set 'drscheme:unit-window-max? (is-maximized?)) (preferences:set 'drscheme:unit-window-max? (is-maximized?))
(super on-size w h)) (super on-size w h))
(define on-move-callback-waiting #f) (define on-move-timer-args #f)
(define on-move-timer #f)
(define/override (on-move x y) (define/override (on-move x y)
(cond (cond
[on-move-callback-waiting [on-move-timer
(set! on-move-callback-waiting (cons x y))] (set! on-move-timer-args (cons x y))]
[else [else
(set! on-move-callback-waiting (cons x y)) (set! on-move-timer-args (cons x y))
(queue-callback (set! on-move-timer
(new timer%
[notify-callback
(λ () (λ ()
(preferences:set 'drscheme:frame:initial-position on-move-callback-waiting) (set! on-move-timer #f)
(set! on-move-callback-waiting #f)) (set! on-move-timer-args #f)
#f)])) (preferences:set 'drscheme:frame:initial-position on-move-timer-args))]
[interval 1000]
[just-once? #t]))]))
(define/override (get-editor) definitions-text) (define/override (get-editor) definitions-text)
(define/override (get-canvas) (define/override (get-canvas)