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

.

Browse Source 
original commit: 6f8ac2026520d98e401a8250d66c751431ff7618
This commit is contained in:
Matthew Flatt 2000-06-06 22:32:28 +00:00
parent a447a2af04
commit 22c61299f5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4334,7 +4334,7 @@
[mouse-popup-menu (lambda (edit event) [mouse-popup-menu (lambda (edit event)
(let ([a (send edit get-admin)]) (let ([a (send edit get-admin)])
(when a (when a
(let ([m (make-object popup-menu% "Edit")]) (let ([m (make-object popup-menu%)])
(append-editor-operation-menu-items m) (append-editor-operation-menu-items m)
;; Remove shortcut indicators (because they might not be correct) ;; Remove shortcut indicators (because they might not be correct)
(for-each (for-each
@ -4346,7 +4346,7 @@
dc-location-to-editor-location dc-location-to-editor-location
(send event get-x) (send event get-x)
(send event get-y))]) (send event get-y))])
(send a popup-menu m x y))))))]) (send a popup-menu m (+ x 5) (+ y 5)))))))])
(wx:add-text-keymap-functions k) (wx:add-text-keymap-functions k)
(send k add-function "mouse-paste" mouse-paste) (send k add-function "mouse-paste" mouse-paste)
(send k add-function "mouse-popup-menu" mouse-popup-menu) (send k add-function "mouse-popup-menu" mouse-popup-menu)