a few missed tweaks for word completion integtation
svn: r7305
This commit is contained in:
parent
6b6f397a64
commit
aaf50c4fa1
|
@ -2718,7 +2718,6 @@ module browser threading seems wrong.
|
||||||
(super file-menu:between-print-and-close file-menu))
|
(super file-menu:between-print-and-close file-menu))
|
||||||
|
|
||||||
(define/override (edit-menu:between-find-and-preferences edit-menu)
|
(define/override (edit-menu:between-find-and-preferences edit-menu)
|
||||||
(super edit-menu:between-find-and-preferences edit-menu)
|
|
||||||
(new menu-item%
|
(new menu-item%
|
||||||
[label (string-constant complete-word)]
|
[label (string-constant complete-word)]
|
||||||
[shortcut #\/]
|
[shortcut #\/]
|
||||||
|
@ -2731,6 +2730,7 @@ module browser threading seems wrong.
|
||||||
(is-a? ed text:autocomplete<%>)))))]
|
(is-a? ed text:autocomplete<%>)))))]
|
||||||
[callback (λ (x y)
|
[callback (λ (x y)
|
||||||
(send (get-edit-target-object) auto-complete))])
|
(send (get-edit-target-object) auto-complete))])
|
||||||
|
(super edit-menu:between-find-and-preferences edit-menu)
|
||||||
(add-modes-submenu edit-menu))
|
(add-modes-submenu edit-menu))
|
||||||
|
|
||||||
;; capability-menu-items : hash-table[menu -o> (listof (list menu-item number key)))
|
;; capability-menu-items : hash-table[menu -o> (listof (list menu-item number key)))
|
||||||
|
|
|
@ -640,7 +640,7 @@ please adhere to these guidelines:
|
||||||
(replace-and-find-again-info "Replace the current text and search for the same string as before")
|
(replace-and-find-again-info "Replace the current text and search for the same string as before")
|
||||||
(replace-and-find-again-menu-item "Replace && Find Again")
|
(replace-and-find-again-menu-item "Replace && Find Again")
|
||||||
|
|
||||||
(complete-word "Complete word") ; the complete word menu item in the edit menu
|
(complete-word "Complete Word") ; the complete word menu item in the edit menu
|
||||||
|
|
||||||
(preferences-info "Configure your preferences")
|
(preferences-info "Configure your preferences")
|
||||||
(preferences-menu-item "Preferences...")
|
(preferences-menu-item "Preferences...")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user