From 9501a9d7f8c63e6cd2983d2be7e63b28e1bc8c11 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 2 Dec 2010 09:20:09 -0600 Subject: [PATCH] adjustments to match gr2 --- collects/tests/drracket/drracket-test-util.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/drracket-test-util.rkt index b7a6bff21c..d64427d7c9 100644 --- a/collects/tests/drracket/drracket-test-util.rkt +++ b/collects/tests/drracket/drracket-test-util.rkt @@ -177,9 +177,9 @@ (let ([window (send frame get-focus-window)]) (let-values ([(cw ch) (send window get-client-size)] [(w h) (send window get-size)]) - (fw:test:mouse-click 'left - (inexact->exact (+ cw (floor (/ (- w cw) 2)))) - (inexact->exact (+ ch (floor (/ (- h ch) 2))))))) + (fw:test:mouse-click 'left + (inexact->exact (floor (+ cw (/ (- w cw) 2)))) + (inexact->exact (floor (+ ch (/ (- h ch) 2))))))) (fw:test:menu-select "Edit" "Select All") (fw:test:menu-select "Edit" (if (eq? (system-type) 'macos) "Clear" @@ -332,8 +332,8 @@ (let-values ([(gx gy) (send editor editor-location-to-dc-location (unbox b1) (unbox b2))]) - (let ([x (inexact->exact (+ gx between-threshold 1))] - [y (inexact->exact (+ gy between-threshold 1))]) + (let ([x (inexact->exact (floor (+ gx between-threshold 1)))] + [y (inexact->exact (floor (+ gy between-threshold 1)))]) (fw:test:mouse-click 'left x y)))))]) (send language-choice focus) (let loop ([list-item language-choice] @@ -571,7 +571,8 @@ (lambda (name [fail (lambda () #f)]) (hash-ref prefs-table name fail)))) - (dynamic-require 'drscheme #f) + (parameterize ([current-command-line-arguments #()]) + (dynamic-require 'drscheme #f)) ;; set all preferences to their defaults (some pref values may have ;; been read by this point, but hopefully that won't affect much