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

added preference that disables overwrite mode

Browse Source 
svn: r12917
This commit is contained in:
Robby Findler 2008-12-21 07:21:28 +00:00
parent 76fc27813a
commit c2685be3a9
4 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/keymap.ss
View File

@ -860,8 +860,9 @@
[toggle-overwrite [toggle-overwrite
(λ (edit event) (λ (edit event)
(when (preferences:get 'framework:overwrite-mode-keybindings)
(send edit set-overwrite-mode (send edit set-overwrite-mode
(not (send edit get-overwrite-mode))))] (not (send edit get-overwrite-mode)))))]
[down-into-embedded-editor [down-into-embedded-editor
(λ (text event) (λ (text event)
@ -1016,7 +1017,7 @@
(add "forward-to-next-embedded-editor" forward-to-next-embedded-editor) (add "forward-to-next-embedded-editor" forward-to-next-embedded-editor)
(add "back-to-prev-embedded-editor" back-to-prev-embedded-editor) (add "back-to-prev-embedded-editor" back-to-prev-embedded-editor)
(add "toggle-overwrite" toggle-overwrite) (add "toggle-overwrite (when enabled in prefs)" toggle-overwrite)
(add "exit" (λ (edit event) (add "exit" (λ (edit event)
(let ([frame (send edit get-frame)]) (let ([frame (send edit get-frame)])
@ -1241,8 +1242,8 @@
(map "c:space" "toggle-anchor") (map "c:space" "toggle-anchor")
(map "insert" "toggle-overwrite") (map "insert" "toggle-overwrite (when enabled in prefs)")
(map-meta "o" "toggle-overwrite") (map-meta "o" "toggle-overwrite (when enabled in prefs)")
(map-meta "g" "goto-line") (map-meta "g" "goto-line")

2
collects/framework/private/main.ss
View File

@ -20,6 +20,8 @@
(application-preferences-handler (λ () (preferences:show-dialog))) (application-preferences-handler (λ () (preferences:show-dialog)))
(preferences:set-default 'framework:overwrite-mode-keybindings #f boolean?)
(preferences:set-default 'framework:ask-about-paste-normalization #t boolean?) (preferences:set-default 'framework:ask-about-paste-normalization #t boolean?)
(preferences:set-default 'framework:do-paste-normalization #t boolean?) (preferences:set-default 'framework:do-paste-normalization #t boolean?)

4
collects/framework/private/preferences.ss
View File

@ -447,6 +447,10 @@ the state transitions / contracts are:
'framework:do-paste-normalization 'framework:do-paste-normalization
(string-constant normalize-string-preference) (string-constant normalize-string-preference)
values values) values values)
(make-check editor-panel
'framework:overwrite-mode-keybindings
(string-constant enable-overwrite-mode-keybindings)
values values)
(editor-panel-procs editor-panel))))]) (editor-panel-procs editor-panel))))])
(add-editor-checkbox-panel))) (add-editor-checkbox-panel)))

1
collects/string-constants/english-string-constants.ss
View File

@ -677,6 +677,7 @@ please adhere to these guidelines:
(no-completions "... no completions available") ; shows up in the completions menu when there are no completions (in italics) (no-completions "... no completions available") ; shows up in the completions menu when there are no completions (in italics)
(overwrite-mode "Overwrite Mode") (overwrite-mode "Overwrite Mode")
(enable-overwrite-mode-keybindings "Enable overwrite mode keybindings")
(preferences-info "Configure your preferences") (preferences-info "Configure your preferences")
(preferences-menu-item "Preferences...") (preferences-menu-item "Preferences...")