From d9e2270ba08661e075abd5703b5614d87eae2923 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 12 Jul 1999 13:51:55 +0000 Subject: [PATCH] . original commit: d72ba1012b960663a70a9cbd6de58ac07880b621 --- collects/tests/mred/windowing.ss | 8 +++++++- src/mred/wrap/mred.ss | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss index 6ea3c6dd..7dda9b59 100644 --- a/collects/tests/mred/windowing.ss +++ b/collects/tests/mred/windowing.ss @@ -723,7 +723,13 @@ (st 3 l get-number) (st "ONe" l get-string 0) (st "TW&o" l get-string 1) - (st "THRee" l get-string 2)) + (st "THRee" l get-string 2) + + (stv l set-data 0 'my-example-data) + (stv l set-data 2 'my-other-data) + (st 'my-example-data l get-data 0) + (st #f l get-data 1) + (st 'my-other-data l get-data 2)) 'done-list)]) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 538d62c9..e0e80089 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -3715,7 +3715,7 @@ (if on? (when (memq i disabled) (set! disabled (remq i disabled)) - (send keymap add-chained-keymap (send (mred->wx i) get-keymap) #t) + (send keymap chain-to-keymap (send (mred->wx i) get-keymap) #t) (unless disabled? (super-enable-top p #t))) (unless (memq i disabled)