From abc2561579e61df10f39238d999c5600b22ab2fd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 27 Aug 2010 07:25:04 -0500 Subject: [PATCH] ugh original commit: a13c251e5da944c8f1739544aea4676007138028 --- 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 a4cd2425..cfad76ac 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 ~.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)