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

.

Browse Source 
original commit: 94ffc19a1874aa9a33517fa31ac92c33d39c8499
This commit is contained in:
Matthew Flatt 2001-03-14 20:07:45 +00:00
parent 89b5c0fce4
commit 74467c8326
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -1329,7 +1329,9 @@
(as-exit
(lambda ()
(super-on-activate on?)))))]
[is-act-on? (lambda () act-on?)])
[is-act-on? (lambda () act-on?)]
[get-act-date/seconds (lambda () act-date/seconds)]
[get-act-date/milliseconds (lambda () act-date/milliseconds)])
(sequence (apply super-init mred proxy args))))
(define (make-canvas-glue% %) ; implies make-window-glue%
@ -3275,8 +3277,8 @@
(if (null? l)
(and f (wx->mred f))
(let* ([f2 (car l)]
[s2 (ivar f2 act-date/seconds)]
[ms2 (ivar f2 act-date/milliseconds)])
[s2 (send f2 get-act-date/seconds)]
[ms2 (send f2 get-act-date/milliseconds)])
(if (or (not f)
(> s2 s)
(and (= s2 s) (> ms2 ms)))