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

.

Browse Source 
original commit: cb30a85ae567cd6abb3248b057bc7a73a012eb0f
This commit is contained in:
Matthew Flatt 2000-06-06 23:15:56 +00:00
parent 22c61299f5
commit cb89749b4a
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/mred/wrap/mred.ss
View File

@ -4332,21 +4332,22 @@
[else (void)])
(send edit paste)))]
[mouse-popup-menu (lambda (edit event)
(let ([a (send edit get-admin)])
(when a
(let ([m (make-object popup-menu%)])
(append-editor-operation-menu-items m)
;; Remove shortcut indicators (because they might not be correct)
(for-each
(lambda (i)
(when (is-a? i selectable-menu-item<%>)
(send i set-shortcut #f)))
(send m get-items))
(let-values ([(x y) (send edit
dc-location-to-editor-location
(send event get-x)
(send event get-y))])
(send a popup-menu m (+ x 5) (+ y 5)))))))])
(when (send event button-up?)
(let ([a (send edit get-admin)])
(when a
(let ([m (make-object popup-menu%)])
(append-editor-operation-menu-items m)
;; Remove shortcut indicators (because they might not be correct)
(for-each
(lambda (i)
(when (is-a? i selectable-menu-item<%>)
(send i set-shortcut #f)))
(send m get-items))
(let-values ([(x y) (send edit
dc-location-to-editor-location
(send event get-x)
(send event get-y))])
(send a popup-menu m (+ x 5) (+ y 5))))))))])
(wx:add-text-keymap-functions k)
(send k add-function "mouse-paste" mouse-paste)
(send k add-function "mouse-popup-menu" mouse-popup-menu)
@ -4360,7 +4361,7 @@
'(":middlebutton"))
'("copy-clipboard" "cut-clipboard" "paste-clipboard" "delete-to-end-of-line"
"undo" "select-all" "mouse-paste"))
(send k map-function ":rightbutton" "mouse-popup-menu")
(send k map-function ":rightbuttonseq" "mouse-popup-menu")
(when (eq? (system-type) 'unix)
(send k map-function ":c:a" "beginning-of-line")
(send k map-function ":c:e" "end-of-line")))