From 1dbff144c2265af0c399ecbee4e04ec7fe032f16 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 8 Sep 2005 00:45:42 +0000
Subject: [PATCH] cursor de-blanking as suggested by Danny

svn: r794
---
 collects/slideshow/viewer.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/slideshow/viewer.ss b/collects/slideshow/viewer.ss
index 09bca56186..f034b3cf4c 100644
--- a/collects/slideshow/viewer.ss
+++ b/collects/slideshow/viewer.ss
@@ -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)