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

Changed select-forward-character to select-right and

Browse Source 
select-backward-character to select-left

original commit: 0615060facf3b44255bf07219a07c25363a75ab3
This commit is contained in:
Robby Findler 1996-08-29 22:28:08 +00:00
parent 83c53b0369
commit 9140f70627
1 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/mred/keys.ss
View File

@ -646,19 +646,7 @@
(if (mred:preferences:get-preference 'mred:delete-forward?)
"delete-next-character"
"delete-previous-character")
edit event #t)))]
[select-forward-character
(lambda (edit event)
(let ([start (box 0)]
[end (box 0)])
(send edit get-position start end)
(send edit set-position (unbox start) (add1 (unbox end)))))]
[select-backward-character
(lambda (edit event)
(let ([start (box 0)]
[end (box 0)])
(send edit get-position start end)
(send edit set-position (sub1 (unbox start)) (unbox end))))])
edit event #t)))])
(lambda (kmap)
; Redirect keymapping error messages to stderr
(send kmap set-error-callback keyerr)
@ -736,8 +724,6 @@
(add "goto-line" goto-line)
(add "goto-position" goto-position)
(add "select-forward-character" select-forward-character)
(add "select-backward-character" select-backward-character)
(add "delete-key" delete-key)
; Map keys to functions
@ -787,13 +773,13 @@
(map "c:f" "forward-character")
(map "right" "forward-character")
(map "s:c:f" "select-forward-character")
(map "s:right" "select-forward-character")
(map "s:c:f" "forward-select")
(map "s:right" "forward-select")
(map "c:b" "backward-character")
(map "left" "backward-character")
(map "s:c:b" "select-backward-character")
(map "s:left" "select-backward-character")
(map "s:c:b" "backward-select")
(map "s:left" "backward-select")
(map-meta "f" "forward-word")
(map "a:RIGHT" "forward-word")