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

.

Browse Source 
original commit: 74976f8239d80f33eec286eb8497e681acb02888
This commit is contained in:
Matthew Flatt 1999-09-03 13:30:34 +00:00
parent ed38f13fcb
commit 6b15485233
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mred/windowing.ss
View File

@ -53,7 +53,7 @@
(stvals '(0 0) f client->screen x y)) (stvals '(0 0) f client->screen x y))
(let-values ([(cw ch) (send f get-client-size)] (let-values ([(cw ch) (send f get-client-size)]
[(w h) (send f get-size)]) [(w h) (send f get-size)])
(test #t `(client-size ,f ,cw ,ch ,w h) (and (<= 1 cw w) (<= 1 ch h)))) (test #t `(client-size ,f ,cw ,ch ,w ,h) (and (<= 1 cw w) (<= 1 ch h))))
(stv f refresh)) (stv f refresh))
(define (area-tests f sw? sh? no-stretch?) (define (area-tests f sw? sh? no-stretch?)