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

under Windows, editor-canvas% needs to set its own focus on mouse clicks

Browse Source 
svn: r14516

original commit: 8001b11c03cee29dc3e8518bd8f85b3164b5e848
This commit is contained in:
Matthew Flatt 2009-04-14 23:08:51 +00:00
parent 28ba2e3e4a
commit 00d4fef044
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wxme/editor-canvas.ss
View File

@ -152,7 +152,8 @@
get-scroll-page set-scroll-page get-scroll-page set-scroll-page
get-scroll-range set-scroll-range get-scroll-range set-scroll-range
is-shown-to-root? is-shown-to-root?
show-scrollbars) show-scrollbars
set-focus)
(define blink-timer #f) (define blink-timer #f)
(define noloop? #f) (define noloop? #f)
@ -374,6 +375,12 @@
(set! last-x x) (set! last-x x)
(set! last-y y) (set! last-y y)
(when (and (eq? 'windows (system-type))
(not focuson?)
(send event button-down?))
(set-focus)
(on-focus #t))
(when (and media (when (and media
(not (send media get-printing))) (not (send media get-printing)))
(using-admin (using-admin