From 3b56f81b101bc518f9252186ea413b7e8abfc4f6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 21 Nov 2010 07:15:02 -0600 Subject: [PATCH] adjusted case of 'show line numbers' to match menu / prefs distinction --- collects/drracket/private/unit.rkt | 8 ++++---- collects/string-constants/english-string-constants.rkt | 5 +++-- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 591e311d59..df09c003db 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -3799,15 +3799,15 @@ module browser threading seems wrong. (new menu:can-restore-menu-item% [label (if (show-line-numbers?) - (string-constant hide-line-numbers) - (string-constant show-line-numbers))] + (string-constant hide-line-numbers/menu) + (string-constant show-line-numbers/menu))] [parent (get-show-menu)] [callback (lambda (self event) (define value (preferences:get 'drracket:show-line-numbers?)) (send self set-label (if value - (string-constant show-line-numbers) - (string-constant hide-line-numbers))) + (string-constant show-line-numbers/menu) + (string-constant hide-line-numbers/menu))) (preferences:set 'drracket:show-line-numbers? (not value)) (show-line-numbers! (not value)))]) diff --git a/collects/string-constants/english-string-constants.rkt b/collects/string-constants/english-string-constants.rkt index a2f11e19f1..c6dd81652e 100644 --- a/collects/string-constants/english-string-constants.rkt +++ b/collects/string-constants/english-string-constants.rkt @@ -448,8 +448,9 @@ please adhere to these guidelines: (show-interactions-on-execute "Automatically open interactions window when running a program") (switch-to-module-language-automatically "Automatically switch to the module language when opening a module") (interactions-beside-definitions "Put the interactions window beside the definitions window") ;; in preferences, below the checkbox one line above this one - (show-line-numbers "Show Line Numbers") - (hide-line-numbers "Hide Line Numbers") + (show-line-numbers "Show line numbers") + (show-line-numbers/menu "Show Line Numbers") ;; just like the above, but capitalized for appearance in a menu item + (hide-line-numbers/menu "Hide Line Numbers") (limit-interactions-size "Limit interactions size") (background-color "Background Color") (default-text-color "Default text") ;; used for configuring colors, but doesn't need the word "color"