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

...

Browse Source 
original commit: 628b801339bc56734d1da4cfd4c03489041ff4b8
This commit is contained in:
John Clements 2002-12-04 21:58:09 +00:00
parent 51134b4b83
commit 2315524694
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,12 +272,10 @@
(lambda (open-brace close-brace)
(lambda (edit event)
(send edit begin-edit-sequence)
(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))
(let ([selection-start (send edit get-start-position)])
(send edit set-position (send edit get-end-position))
(send edit insert close-brace)
(send edit set-position (unbox selection-start-box))
(send edit set-position selection-start)
(send edit insert open-brace))
(send edit end-edit-sequence)))]