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

cursor de-blanking as suggested by Danny

Browse Source 
svn: r794
This commit is contained in:
Matthew Flatt 2005-09-08 00:45:42 +00:00
parent 41786731da
commit 1dbff144c2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/slideshow/viewer.ss
View File

@ -222,11 +222,13 @@
#t] #t]
[(#\g) [(#\g)
(stop-transition) (stop-transition)
(send f set-blank-cursor #f)
(if (send e get-meta-down) (if (send e get-meta-down)
(get-page-from-user) (get-page-from-user)
(begin (begin
(set! current-page (max 0 (sub1 slide-count))) (set! current-page (max 0 (sub1 slide-count)))
(refresh-page))) (refresh-page)))
(send f set-blank-cursor blank-cursor-allowed?)
#t] #t]
[(#\1) [(#\1)
(stop-transition) (stop-transition)
@ -240,6 +242,7 @@
(stop-show)) (stop-show))
#t] #t]
[(escape) [(escape)
(send f set-blank-cursor #f)
(when (equal? 1 (message-box/custom (when (equal? 1 (message-box/custom
"Quit" "Quit"
"Really quit the slide show?" "Really quit the slide show?"
@ -249,6 +252,7 @@
this this
'(default=1 caution))) '(default=1 caution)))
(stop-show)) (stop-show))
(send f set-blank-cursor blank-cursor-allowed?)
#t] #t]
[(#\p) [(#\p)
(when (or (send e get-meta-down) (when (or (send e get-meta-down)