.

original commit: f1d7b9ec3254af1d8ee9fceb1ca2963336629519

collects/mred/mred-sig.ss

@@ -101,6 +101,7 @@
      graphical-read-eval-print-loop
      group-box-panel%
      grow-box-spacer-pane%
+     hide-cursor-until-moved
      horizontal-pane%
      horizontal-panel%
      tab-panel%

collects/mred/mred.ss

@@ -7967,6 +7967,8 @@
    [(fn) (wx:file-creator-and-type fn)]
    [(fn c t) (wx:file-creator-and-type fn c t)]))
 
+(define (hide-cursor-until-moved) (wx:hide-cursor))
+
 (provide button%
 	 canvas%
 	 check-box%
@@ -8068,7 +8070,8 @@
 	 make-namespace-with-mred
 	 file-creator-and-type
 	 current-ps-afm-file-paths
-	current-ps-cmap-file-paths)
+	 current-ps-cmap-file-paths
+	 hide-cursor-until-moved)
 
 
 ) ;; end of module

collects/mred/private/kernel.ss

@@ -608,6 +608,7 @@
   (define-function display-origin)
   (define-function display-size)
   (define-function bell)
+  (define-function hide-cursor)
   (define-function end-busy-cursor)
   (define-function is-busy?)
   (define-function begin-busy-cursor)