suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 29aa96c0ef3312ea329cd404724b2ca98cff92b5
This commit is contained in:
Robby Findler 2000-05-25 21:31:18 +00:00
parent 6f3c3323d6
commit c49293b4cd
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/frame.ss
View File

@ -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)

5
collects/framework/standard-menus-items.ss
View File

@ -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)