on-active Windows fix

original commit: aba7b90a0fafb513e06cf09a4919793ce1bb9c04
1998-12-07 00:34:26 +00:00 · 1998-12-07 00:34:26 +00:00 · a595ca35ae
commit a595ca35ae
parent 48b10fccdc
1 changed files with 4 additions and 1 deletions
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@ -1121,7 +1121,10 @@
 			(set! act-date/milliseconds (current-milliseconds))
 			(set! active-frame this))
 		      (super-on-activate on?)
-		      (as-exit (lambda () (send (get-mred) on-activate on?)))))])
+		      ;; Delay callback to handle Windows bug
+		      (queue-window-callback
+		       this
+		       (lambda () (send (get-mred) on-activate on?)))))])
    (sequence (apply super-init mred proxy args))))

 (define (make-canvas-glue% %) ; implies make-window-glue%