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

slideshow: fix bug related to `interactive'

Browse Source 
The viewer didn't remove interactives correctly.
This commit is contained in:
Matthew Flatt 2013-03-08 16:03:47 -07:00
parent da7a525452
commit 939b36d1fe
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/slideshow/viewer.rkt
View File

@ -773,10 +773,9 @@
(set! click-regions (map (lambda (cr) (set! click-regions (map (lambda (cr)
(shift-click-region cr dx dy)) (shift-click-region cr dx dy))
prefetched-click-regions)) prefetched-click-regions))
(swap-interactives! interactives (set! interactives (for/hash ([k (in-hash-keys prefetched-interactives)])
(for/hash ([k (in-hash-keys prefetched-interactives)]) (values (shift-interact k dx dy)
(values (shift-interact k dx dy) #t)))
#t)))
(send f set-blank-cursor (null? click-regions))))) (send f set-blank-cursor (null? click-regions)))))
(define/override (on-size w h) (define/override (on-size w h)
(unless resizing-frame? (unless resizing-frame?