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

ugh

Browse Source 
original commit: a13c251e5da944c8f1739544aea4676007138028
This commit is contained in:
Robby Findler 2010-08-27 07:25:04 -05:00
parent 530ea01f13
commit abc2561579
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/test.rkt
View File

@ -267,7 +267,7 @@
(send panel get-children)))])
(or found
(error object-tag
"no object of class ~a named ~.e in active frame"
"no object of class ~a named ~e in active frame"
obj-class
b-desc)))]
[(is-a? b-desc obj-class) b-desc]
@ -289,11 +289,11 @@
[ctrl (find-ctrl)])
(cond
[(not (send ctrl is-shown?))
(error error-tag "control ~.e is not shown (label ~e)" ctrl (send ctrl get-label))]
(error error-tag "control ~e is not shown (label ~e)" ctrl (send ctrl get-label))]
[(not (send ctrl is-enabled?))
(error error-tag "control ~.e is not enabled (label ~e)" ctrl (send ctrl get-label))]
(error error-tag "control ~e is not enabled (label ~e)" ctrl (send ctrl get-label))]
[(not (in-active-frame? ctrl))
(error error-tag "control ~.e is not in active frame (label ~e)" ctrl (send ctrl get-label))]
(error error-tag "control ~e is not in active frame (label ~e)" ctrl (send ctrl get-label))]
[else
(update-control ctrl)
(send ctrl command event)