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

add a test case to make sure 'Insert Large Letters' doesn't crash

Browse Source 
original commit: a2b03a083a8c5238e05e0eac0501653bf593b443
This commit is contained in:
Robby Findler 2014-02-21 17:29:32 -06:00
parent 746f7ec3d0
commit 6df4504d47
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkgs/gui-pkgs/gui-lib/framework/test.rkt
View File

@ -226,7 +226,7 @@
(let loop ([window window])
(cond [(not window) #f]
[(null? window) #f] ;; is this test needed?
[(eq? window frame) #t]
[(object=? window frame) #t]
[else (loop (send window get-parent))]))))
;;
@ -527,7 +527,20 @@
[(not (send window is-enabled?))
(error key-tag "focused window is not enabled")]
[(not (in-active-frame? window))
(error key-tag "focused window is not in active frame")]
(error
key-tag
(string-append
"focused window is not in active frame;"
"active frame's label is ~s and focused window is in a frame with label ~s")
(let ([f (test:get-active-top-level-window)])
(and f (send (test:get-active-top-level-window) get-label)))
(let loop ([p window])
(cond
[(is-a? p top-level-window<%>)
(send p get-label)]
[(is-a? p area<%>)
(loop (send p get-parent))]
[else #f])))]
[else
(let ([event (make-key-event key window modifier-list)])
(send-key-event window event)