From c49293b4cd136bd267a611249b03bb583cf2e126 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 25 May 2000 21:31:18 +0000 Subject: [PATCH] . original commit: 29aa96c0ef3312ea329cd404724b2ca98cff92b5 --- collects/framework/frame.ss | 3 ++- collects/framework/standard-menus-items.ss | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index 79498c40..9ba6dced 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -1151,7 +1151,8 @@ [get-editor<%> (lambda () text:searching<%>)] [get-editor% (lambda () text:searching%)] [edit-menu:find (lambda (menu evt) (move-to-search-or-search) #t)] - [edit-menu:find-again (lambda (menu evt) (search-again) #t)]) + [edit-menu:find-again (lambda (menu evt) (search-again) #t)] + [edit-menu:replace-and-find-again (lambda (menu evt) (replace&search) #t)]) (override [make-root-area-container (lambda (% parent) diff --git a/collects/framework/standard-menus-items.ss b/collects/framework/standard-menus-items.ss index 87630879..279c251c 100644 --- a/collects/framework/standard-menus-items.ss +++ b/collects/framework/standard-menus-items.ss @@ -170,8 +170,11 @@ (make-between 'edit-menu 'select-all 'find 'separator) (make-an-item 'edit-menu 'find "Search for a string in the window" #f #\f "Find..." "") - (make-an-item 'edit-menu 'find-again "Search the same string as before" #f + (make-an-item 'edit-menu 'find-again "Search for the same string as before" #f #\g "Find Again" "") + (make-an-item 'edit-menu 'replace-and-find-again + "Replace the current text and search for the same string as before" + #f #\h "Replace && Find Again" "") (make-between 'edit-menu 'find 'preferences 'separator) (make-an-item 'edit-menu 'preferences "Configure the preferences" '(lambda (item control) (preferences:show-dialog) #t)