suzanne.soy/gui
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

original commit: 76f1f1f94a4daa8c4eebd36238b0d98e196ffffc
This commit is contained in:
Robby Findler 2007-07-08 13:19:42 +00:00
parent 9e9e55a0b7
commit c2c45c43c5
2 changed files with 10 additions and 8 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?)
(color-prefs:set-default/color-scheme 'framework:basic-canvas-background "white" "black")
(preferences:set-default 'framework:special-option-key #f boolean?)
(preferences:add-callback 'framework:special-option-key (λ (p v) (special-option-key v)))
(special-option-key (preferences:get 'framework:special-option-key))
(preferences:set-default 'framework:special-meta-key #f boolean?)
(preferences:add-callback 'framework:special-meta-key (λ (p v) (map-command-as-meta-key v)))
(map-command-as-meta-key (preferences:get 'framework:special-meta-key))
(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?
(string-constant reuse-existing-frames)
values values)
(make-check editor-panel
'framework:menu-bindings
(string-constant enable-keybindings-in-menus)
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
'framework:coloring-active
(string-constant online-coloring-active)
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)
(make-check editor-panel
'framework:print-output-mode