From cdb60d38144b9e4673b58405c61d52bcec8189f0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 9 Jul 1998 23:05:47 +0000 Subject: [PATCH] . original commit: 6b688673ffea7967156db7570e30dff7de0b9979 --- collects/tests/mred/item.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 97a5b382..d0797344 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -940,11 +940,11 @@ (error "string selection not null"))))] [(send e is-double-click?) ; double-click + (printf "Double-click~n") (unless (= -1 (send e get-command-int)) (error "selection index is not -1")) (unless (null? (send e get-command-string)) - (error "string selection not null:" (send e get-command-string))) - (printf "Double-click~n")] + (error "string selection not null:" (send e get-command-string)))] [else ; misc multi-selection (printf "Changed~n")