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

fix double-click handling, which was broken in the fix for PR 8040

Browse Source 
svn: r3840
This commit is contained in:
Matthew Flatt 2006-07-27 16:40:03 +00:00
parent 967cd9ab14
commit 23be1c9b38
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/games/cards/classes.ss
View File

@ -21,7 +21,7 @@
invalidate-bitmap-cache invalidate-bitmap-cache
find-next-selected-snip find-first-snip find-snip find-next-selected-snip find-first-snip find-snip
set-before set-after set-before set-after
add-selected is-selected? no-selected add-selected is-selected? no-selected set-selected
get-snip-location move-to get-snip-location move-to
dc-location-to-editor-location dc-location-to-editor-location
set-selection-visible) set-selection-visible)
@ -328,7 +328,11 @@
(not (send click-base user-can-move))) (not (send click-base user-can-move)))
(no-selected))) (no-selected)))
(when (and click click-base) (when (and click click-base)
(do-on-single-click click-base))))] (do-on-single-click click-base)))
(when click-base
; For double-clicks to be detected, the clicked card
; must be selected:
(set-selected click-base)))]
[on-double-click [on-double-click
(lambda (s e) (lambda (s e)
(cond (cond