Disabling the other screen->client call on X, re: DrDr

This commit is contained in:
Jay McCarthy 2012-12-08 07:32:35 -07:00
parent 1d36492f51
commit 1b6c4f0e72

View File

@ -216,10 +216,12 @@
[client->screen-tests
(lambda ()
(printf "Client<->Screen\n")
(let-values ([(x y) (send f client->screen 0 0)])
(stvals '(0 0) f screen->client x y))
(let-values ([(x y) (send f screen->client 0 0)])
(stvals '(0 0) f client->screen x y)))]
(X-FAILS
(let-values ([(x y) (send f client->screen 0 0)])
(stvals '(0 0) f screen->client x y)))
(X-FAILS
(let-values ([(x y) (send f screen->client 0 0)])
(stvals '(0 0) f client->screen x y))))]
[container-tests
(lambda ()
(printf "Container\n")