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

key event's position is gone: get-x and get-y

Browse Source 
original commit: f0510efdc515f722000a1acc53a3c73d8df2cc26
This commit is contained in:
Matthew Flatt 1997-09-18 17:12:18 +00:00
parent 69cd466150
commit f58653aa29
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/keys.ss
View File

@ -53,10 +53,9 @@
(define setup-global-search-keymap (define setup-global-search-keymap
(let* ([find-string (let* ([find-string
(lambda (edit event . extras) (lambda (edit event . extras)
(let ([x-box (box 0)] (let ([x-box (box (send event get-x))]
[y-box (box 0)] [y-box (box (send event get-y))]
[canvas (send event get-event-object)]) [canvas (send event get-event-object)])
(send event position x-box y-box)
(send canvas client-to-screen x-box y-box) (send canvas client-to-screen x-box y-box)
(mred:find-string:find-string canvas () (mred:find-string:find-string canvas ()
(- (unbox x-box) 30) (- (unbox x-box) 30)