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

adjusted esc and control-g wrt snapback and search

Browse Source 
svn: r10947
This commit is contained in:
Robby Findler 2008-07-28 20:05:35 +00:00
parent eaf979b749
commit a007b9cde8
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/frame.ss
View File

@ -1947,13 +1947,21 @@
(send search/replace-keymap add-function "hide-search" (send search/replace-keymap add-function "hide-search"
(λ (text evt) (λ (text evt)
(let ([tlw (send text get-top-level-window)]) (let ([tlw (send text get-top-level-window)])
(when tlw
(send tlw hide-search)))))
(send search/replace-keymap map-function "c:g" "hide-search-and-snap-back")
(send search/replace-keymap add-function "hide-search-and-snap-back"
(λ (text evt)
(let ([tlw (send text get-top-level-window)])
(when tlw
(when (preferences:get 'framework:anchored-search) (when (preferences:get 'framework:anchored-search)
(let ([text-to-search (send tlw get-text-to-search)]) (let ([text-to-search (send tlw get-text-to-search)])
(when text-to-search (when text-to-search
(let ([anchor-pos (send text-to-search get-anchor-pos)]) (let ([anchor-pos (send text-to-search get-anchor-pos)])
(when anchor-pos (when anchor-pos
(send text-to-search set-position anchor-pos)))))) (send text-to-search set-position anchor-pos))))))
(send tlw hide-search)))) (send tlw hide-search)))))
(define searchable-canvas% (define searchable-canvas%
(class editor-canvas% (class editor-canvas%