From 797df5e72c88b79f463ba049e15253ddd60b6111 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 27 Aug 2010 06:48:50 -0500 Subject: [PATCH] changed back some of Eli's ~e => ~.s changes --- collects/framework/test.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/framework/test.rkt b/collects/framework/test.rkt index 9129bbd70b..a4cd24255b 100644 --- a/collects/framework/test.rkt +++ b/collects/framework/test.rkt @@ -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)