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

Fixing X11 test bugs

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-13 14:34:34 -06:00
parent 04b035ade6
commit bac7ff3bdf
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/tests/mred/windowing.rktl
View File

@ -167,7 +167,7 @@
(let ([f (make-object frame% "Yes & No" #f 150 151 20 21)]) (let ([f (make-object frame% "Yes & No" #f 150 151 20 21)])
(let ([init-tests (let ([init-tests
(lambda () (lambda (hidden?)
(st "Yes & No" f get-label) (st "Yes & No" f get-label)
(st "Yes No" f get-plain-label) (st "Yes No" f get-plain-label)
(stv f set-label "Yeah & Nay") (stv f set-label "Yeah & Nay")
@ -176,8 +176,15 @@
(stv f set-label "Yes & No") (stv f set-label "Yes & No")
(st #f f get-parent) (st #f f get-parent)
(st f f get-top-level-window) (st f f get-top-level-window)
(st 20 f get-x) (case (system-type 'os)
(st 21 f get-y) [(unix)
(st 21 f get-x)
(if hidden?
(st 42 f get-y)
(st 22 f get-y))]
[else
(st 20 f get-x)
(st 21 f get-y)])
(st 150 f get-width) (st 150 f get-width)
(st 151 f get-height) (st 151 f get-height)
(stvals (list (send f get-width) (send f get-height)) f get-size) (stvals (list (send f get-width) (send f get-height)) f get-size)
@ -232,15 +239,15 @@
(cursor-tests) (cursor-tests)
(printf "Init~n") (printf "Init~n")
(init-tests) (init-tests #f)
(stv f show #t) (stv f show #t)
(pause) (pause)
(printf "Show Init~n") (printf "Show Init~n")
(init-tests) (init-tests #t)
(stv f show #f) (stv f show #f)
(pause) (pause)
(printf "Hide Init~n") (printf "Hide Init~n")
(init-tests) (init-tests #f)
(send f show #t) (send f show #t)
(pause) (pause)