From 98be3ce323998a336daadb2691f4b1694ebec347 Mon Sep 17 00:00:00 2001 From: Mike MacHenry Date: Thu, 18 Dec 2003 22:22:26 +0000 Subject: [PATCH] tabbing fixed, menus changed, error reporting improved original commit: fa36af09b9caab060cd9e8db0592b0218997933e --- collects/test-suite/private/tabbable-text.ss | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/collects/test-suite/private/tabbable-text.ss b/collects/test-suite/private/tabbable-text.ss index 42a35fcc..59a27437 100644 --- a/collects/test-suite/private/tabbable-text.ss +++ b/collects/test-suite/private/tabbable-text.ss @@ -19,24 +19,22 @@ (mixin (editor:keymap<%>) (tabbable-text<%>) (init-field - [ahead #f] - [back #f]) + [ahead void] + [back void]) ;; get-keymaps (-> (listof keymap%)) ;; the list of keymaps associated with this text (rename [super-get-keymaps get-keymaps]) (define/override (get-keymaps) (let ([keymap (make-object keymap%)]) - (when ahead - (send keymap add-function "tab-ahead" - (lambda (ignored event) - (ahead))) - (send keymap map-function ":tab" "tab-ahead")) - (when back - (send keymap add-function "tab-back" + (send keymap add-function "tab-ahead" + (lambda (ignored event) + (ahead))) + (send keymap map-function ":tab" "tab-ahead") + (send keymap add-function "tab-back" (lambda (ignored event) (back))) - (send keymap map-function "s:tab" "tab-back")) + (send keymap map-function "s:tab" "tab-back") (cons keymap (super-get-keymaps)))) (define/public (set-ahead t) (set! ahead t))