changed back some of Eli's ~e => ~.s changes

This commit is contained in:
Robby Findler 2010-08-27 06:48:50 -05:00
parent bd14fbb4ee
commit 797df5e72c

View File

@ -267,7 +267,7 @@
(send panel get-children)))])
(or found
(error object-tag
"no object of class ~a named ~.s 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 ~.s 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 ~.s 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 ~.s 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)