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

adjust esc;w so that it clears the anchor

Browse Source 
original commit: c0462d0fed6d37c1f038dde141021f63505902b5
This commit is contained in:
Robby Findler 2013-09-13 21:44:08 -05:00
parent dd39016e04
commit d9ee4d600f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
View File

@ -653,6 +653,11 @@
(λ (edit event)
(send edit copy #f (send event get-time-stamp)))]
[mouse-copy-clipboard/disable-anchor
(λ (edit event)
(send edit set-anchor #f)
(send edit copy #f (send event get-time-stamp)))]
[mouse-paste-clipboard
(λ (edit event)
(send edit paste (send event get-time-stamp)))]
@ -1112,6 +1117,7 @@
(add "keyboard-macro-end-record" end-macro)
(add-m "copy-clipboard" mouse-copy-clipboard)
(add-m "copy-clipboard/disable-anchor" mouse-copy-clipboard/disable-anchor)
(add-m "cut-clipboard" mouse-cut-clipboard)
(add-m "paste-clipboard" mouse-paste-clipboard)
(add-m "copy-click-region" copy-click-region)
@ -1278,7 +1284,7 @@
(map "c:w" "cut-clipboard")
(map "a:x" "cut-clipboard")
(map "d:x" "cut-clipboard")
(map-meta "w" "copy-clipboard")
(map-meta "w" "copy-clipboard/disable-anchor")
(map "a:c" "copy-clipboard")
(map "d:c" "copy-clipboard")