From 76fc27813a4a7bf4180a7f86182637d0873e4a99 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 20 Dec 2008 22:56:29 +0000 Subject: [PATCH] added overwrite mode menu item svn: r12916 --- collects/drscheme/private/unit.ss | 17 ++++++++++++++++- .../english-string-constants.ss | 4 +++- 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 9e943f22bf..8f22224638 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -3082,7 +3082,7 @@ module browser threading seems wrong. (define/override (edit-menu:between-find-and-preferences edit-menu) (super edit-menu:between-find-and-preferences edit-menu) - (new menu-item% + (new menu:can-restore-menu-item% [label (string-constant complete-word)] [shortcut #\/] [parent edit-menu] @@ -3096,6 +3096,21 @@ module browser threading seems wrong. (send (get-edit-target-object) auto-complete))]) (add-modes-submenu edit-menu)) + (define/override (edit-menu:between-select-all-and-find edit-menu) + (new menu:can-restore-checkable-menu-item% + [label (string-constant overwrite-mode)] + [parent edit-menu] + [demand-callback + (λ (mi) + (let ([target (get-edit-target-object)]) + (send mi enable (get-edit-target-object)) + (send mi check (and target (send target get-overwrite-mode)))))] + [callback (λ (x y) + (let ([target (get-edit-target-object)]) + (send target set-overwrite-mode + (not (send target get-overwrite-mode)))))]) + (super edit-menu:between-select-all-and-find edit-menu)) + ;; capability-menu-items : hash-table[menu -o> (listof (list menu-item number key))) (define capability-menu-items (make-hasheq)) (define/public (register-capability-menu-item key menu) diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index efeed1ebf2..059fdfb60e 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -676,6 +676,8 @@ please adhere to these guidelines: (complete-word "Complete Word") ; the complete word menu item in the edit menu (no-completions "... no completions available") ; shows up in the completions menu when there are no completions (in italics) + (overwrite-mode "Overwrite Mode") + (preferences-info "Configure your preferences") (preferences-menu-item "Preferences...") @@ -845,7 +847,7 @@ please adhere to these guidelines: (close-tab "Close Tab") ;; must not have any &s in it. (close-tab-amp "&Close Tab") ;; like close-tab, but with an ampersand on the same letter as the one in close-menu-item - ;;; edit-menu + ;;; edit menu (split-menu-item-label "&Split") (collapse-menu-item-label "C&ollapse")