From ca8ad52774c0dcbecf01889ef6cd5961eacda0b5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 25 Nov 1998 13:16:45 +0000 Subject: [PATCH] . original commit: fff712353ba14562938b83d4ad1eddde2ca5528c --- collects/tests/mred/draw.ss | 2 +- notes/mred/MrEd_100.txt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss index 7668ee1a..79bc2169 100644 --- 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.)] diff --git a/notes/mred/MrEd_100.txt b/notes/mred/MrEd_100.txt index 96127d0c..b3149c82 100644 --- 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