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

updated to new command-as-meta stuff

Browse Source 
svn: r6860
This commit is contained in:
Robby Findler 2007-07-08 13:19:42 +00:00
parent c74971ecba
commit 76f1f1f94a
3 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,9 +52,9 @@
boolean?) boolean?)
(color-prefs:set-default/color-scheme 'framework:basic-canvas-background "white" "black") (color-prefs:set-default/color-scheme 'framework:basic-canvas-background "white" "black")
(preferences:set-default 'framework:special-option-key #f boolean?) (preferences:set-default 'framework:special-meta-key #f boolean?)
(preferences:add-callback 'framework:special-option-key (λ (p v) (special-option-key v))) (preferences:add-callback 'framework:special-meta-key (λ (p v) (map-command-as-meta-key v)))
(special-option-key (preferences:get 'framework:special-option-key)) (map-command-as-meta-key (preferences:get 'framework:special-meta-key))
(preferences:set-default 'framework:fraction-snip-style 'mixed (λ (x) (memq x '(mixed improper)))) (preferences:set-default 'framework:fraction-snip-style 'mixed (λ (x) (memq x '(mixed improper))))

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

@ -383,19 +383,21 @@ the state transitions / contracts are:
'framework:open-here? 'framework:open-here?
(string-constant reuse-existing-frames) (string-constant reuse-existing-frames)
values values) values values)
(make-check editor-panel (make-check editor-panel
'framework:menu-bindings 'framework:menu-bindings
(string-constant enable-keybindings-in-menus) (string-constant enable-keybindings-in-menus)
values values) values values)
(when (memq (system-type) '(macosx))
(make-check editor-panel
'framework:special-meta-key
(string-constant command-as-meta)
values values))
(make-check editor-panel (make-check editor-panel
'framework:coloring-active 'framework:coloring-active
(string-constant online-coloring-active) (string-constant online-coloring-active)
values values) values values)
(when (memq (system-type) '(macos macosx))
(make-check editor-panel
'framework:special-option-key
(string-constant option-as-meta)
values values))
(unless (eq? (system-type) 'unix) (unless (eq? (system-type) 'unix)
(make-check editor-panel (make-check editor-panel
'framework:print-output-mode 'framework:print-output-mode

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

@ -408,7 +408,7 @@ please adhere to these guidelines:
(show-character-offsets "Show character offsets") ; used for popup menu; right click on line/column box in bottom of drs window (show-character-offsets "Show character offsets") ; used for popup menu; right click on line/column box in bottom of drs window
(enable-keybindings-in-menus "Enable keybindings in menus") (enable-keybindings-in-menus "Enable keybindings in menus")
(automatically-to-ps "Automatically print to PostScript file") (automatically-to-ps "Automatically print to PostScript file")
(option-as-meta "Treat option key as meta") ;; macos/macos x only (command-as-meta "Treat command key as meta") ;; macos/macos x only
(separate-dialog-for-searching "Use separate dialog for searching") (separate-dialog-for-searching "Use separate dialog for searching")
(reuse-existing-frames "Reuse existing frames when opening new files") (reuse-existing-frames "Reuse existing frames when opening new files")
(default-fonts "Default Fonts") (default-fonts "Default Fonts")