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

...

Browse Source 
original commit: b30d010e2dc4aee8a6bd537669741bad041add4a
This commit is contained in:
John Clements 2002-12-04 20:53:18 +00:00
parent 930c6c7a6a
commit 4a579cf60f
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -269,11 +269,16 @@
#t)]
[make-insert-brace-pair
(lambda (brace-pair-str) ; this string must be two characters long!
(lambda (open-brace close-brace)
(lambda (edit event)
(send edit begin-edit-sequence)
(send edit insert brace-pair-str)
(send edit set-position (max 0 (- (send edit get-start-position) 1)))
(let ([selection-start-box (box 0)]
[selection-end-box (box 0)])
(send edit get-position selection-start-box selection-end-box)
(send edit set-position (unbox selection-end-box))
(send edit insert close-brace)
(send edit set-position (unbox selection-start-box))
(send edit insert open-brace))
(send edit end-edit-sequence)))]
[collapse-variable-space
@ -868,12 +873,12 @@
(add "flash-paren-match" flash-paren-match)
(add "insert-()-pair" (make-insert-brace-pair "()"))
(add "insert-[]-pair" (make-insert-brace-pair "[]"))
(add "insert-{}-pair" (make-insert-brace-pair "{}"))
(add "insert-\"\"-pair" (make-insert-brace-pair "\"\""))
(add "insert-||-pair" (make-insert-brace-pair "||"))
(add "insert-##-pair" (make-insert-brace-pair "##"))
(add "insert-()-pair" (make-insert-brace-pair "(" ")"))
(add "insert-[]-pair" (make-insert-brace-pair "[" "]"))
(add "insert-{}-pair" (make-insert-brace-pair "{" "}"))
(add "insert-\"\"-pair" (make-insert-brace-pair "\"" "\""))
(add "insert-||-pair" (make-insert-brace-pair "|" "|"))
(add "insert-##-pair" (make-insert-brace-pair "#" "#"))
(add "toggle-anchor" toggle-anchor)
(add "center-view-on-line" center-view-on-line)