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

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

@ -2077,18 +2077,23 @@ module browser threading seems wrong.
(preferences:set 'drscheme:unit-window-max? (is-maximized?))
(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)
(cond
[on-move-callback-waiting
(set! on-move-callback-waiting (cons x y))]
[on-move-timer
(set! on-move-timer-args (cons x y))]
[else
(set! on-move-callback-waiting (cons x y))
(queue-callback
(λ ()
(preferences:set 'drscheme:frame:initial-position on-move-callback-waiting)
(set! on-move-callback-waiting #f))
#f)]))
(set! on-move-timer-args (cons x y))
(set! on-move-timer
(new timer%
[notify-callback
(λ ()
(set! on-move-timer #f)
(set! on-move-timer-args #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-canvas)