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