From 1ea9d0b129a2bc08bb432e569f89c442e3142aaa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 17 Jul 2006 02:45:29 +0000 Subject: [PATCH] fix shortcut prefix test svn: r3737 original commit: fb2b7fbf0537699cb46711ff27662d98b90807a0 --- collects/tests/mred/windowing.ss | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss index e0b0a9ef..056c752e 100644 --- a/collects/tests/mred/windowing.ss +++ b/collects/tests/mred/windowing.ss @@ -396,15 +396,15 @@ (st #f i get-shortcut) (stv i set-shortcut c)) - (st 'meta i get-x-shortcut-prefix) - (let ([p (send i get-x-shortcut-prefix)]) - (stv i set-x-shortcut-prefix 'alt) - (st 'alt i get-x-shortcut-prefix) - (stv i set-x-shortcut-prefix 'ctl) - (st 'ctl i get-x-shortcut-prefix) - (stv i set-x-shortcut-prefix 'ctl-m) - (st 'ctl-m i get-x-shortcut-prefix) - (stv i set-x-shortcut-prefix 'alt)))]) + (st (get-default-shortcut-prefix) i get-shortcut-prefix) + (let ([p (send i get-shortcut-prefix)]) + (stv i set-shortcut-prefix '(shift)) + (st '(shift) i get-shortcut-prefix) + (stv i set-shortcut-prefix '(ctl)) + (st '(ctl) i get-shortcut-prefix) + (stv i set-shortcut-prefix '(shift ctl)) + (st '(shift ctl) i get-shortcut-prefix) + (stv i set-shortcut-prefix p)))]) (st (list i1 i2 i3) m get-items) (st "&Plain" i1 get-label)