.

original commit: fff712353ba14562938b83d4ad1eddde2ca5528c
1998-11-25 13:16:45 +00:00 · 1998-11-25 13:16:45 +00:00 · ca8ad52774
commit ca8ad52774
parent 950c0afdbf
2 changed files with 2 additions and 2 deletions
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@ -622,7 +622,7 @@
 				(error 'draw-test "shouldn't have been a clipping region"))
 			      (let*-values ([(x y w h) (send r get-bounding-box)]
 					    [(l) (list x y w h)])
-				(unless (equal? l
+				(unless (andmap = l
 						(case clip
 						  [(rect) '(100. -25. 10. 400.)]
 						  [(poly circle poly-rect) '(0. 60. 180. 180.)]
--- a/notes/mred/MrEd_100.txt
+++ b/notes/mred/MrEd_100.txt
@ -631,7 +631,7 @@ begin-busy-cursor end-busy-cursor is-busy-cursor?
 bell
 label->plain-label
 get-resource write-resource
-yield flush-display
+yield sleep/yield flush-display
 get-face-list - formerly wx:get-font-list

 find-graphical-system-path - formerly wx:find-path