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

fixed bug

Browse Source 
original commit: 9aa61cb17c701b66fbac1c112e368f7aa7be4ae6
This commit is contained in:
Robby Findler 1996-07-08 14:52:21 +00:00
parent 9c331387cf
commit 9c87d070b2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/keys.ss
View File

@ -43,7 +43,7 @@
(send keymap map-function key func))
(make-meta-prefix-list key))))
(mred:preferences:set-preference-default 'mred:delete-forward? (not (eq? wx:platform 'windows)))
(mred:preferences:set-preference-default 'mred:delete-forward? (not (eq? wx:platform 'unix)))
; This installs the standard keyboard mapping
(define setup-global-keymap
@ -643,8 +643,8 @@
(let ([kmap (send edit get-keymap)])
(send kmap call-function
(if (mred:preferences:get-preference 'mred:delete-forward?)
"delete-previous-character"
"delete-next-character")
"delete-next-character"
"delete-previous-character")
edit event #t)))]
[select-forward-character
(lambda (edit event)