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

adjustments to match gr2

Browse Source
This commit is contained in:
Robby Findler 2010-12-02 09:20:09 -06:00
parent d4857c4420
commit 9501a9d7f8
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/tests/drracket/drracket-test-util.rkt
View File

@ -177,9 +177,9 @@
(let ([window (send frame get-focus-window)]) (let ([window (send frame get-focus-window)])
(let-values ([(cw ch) (send window get-client-size)] (let-values ([(cw ch) (send window get-client-size)]
[(w h) (send window get-size)]) [(w h) (send window get-size)])
(fw:test:mouse-click 'left (fw:test:mouse-click 'left
(inexact->exact (+ cw (floor (/ (- w cw) 2)))) (inexact->exact (floor (+ cw (/ (- w cw) 2))))
(inexact->exact (+ ch (floor (/ (- h ch) 2))))))) (inexact->exact (floor (+ ch (/ (- h ch) 2)))))))
(fw:test:menu-select "Edit" "Select All") (fw:test:menu-select "Edit" "Select All")
(fw:test:menu-select "Edit" (if (eq? (system-type) 'macos) (fw:test:menu-select "Edit" (if (eq? (system-type) 'macos)
"Clear" "Clear"
@ -332,8 +332,8 @@
(let-values ([(gx gy) (send editor editor-location-to-dc-location (let-values ([(gx gy) (send editor editor-location-to-dc-location
(unbox b1) (unbox b1)
(unbox b2))]) (unbox b2))])
(let ([x (inexact->exact (+ gx between-threshold 1))] (let ([x (inexact->exact (floor (+ gx between-threshold 1)))]
[y (inexact->exact (+ gy between-threshold 1))]) [y (inexact->exact (floor (+ gy between-threshold 1)))])
(fw:test:mouse-click 'left x y)))))]) (fw:test:mouse-click 'left x y)))))])
(send language-choice focus) (send language-choice focus)
(let loop ([list-item language-choice] (let loop ([list-item language-choice]
@ -571,7 +571,8 @@
(lambda (name [fail (lambda () #f)]) (lambda (name [fail (lambda () #f)])
(hash-ref prefs-table name fail)))) (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 ;; set all preferences to their defaults (some pref values may have
;; been read by this point, but hopefully that won't affect much ;; been read by this point, but hopefully that won't affect much