.

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,108 +7967,111 @@
    [(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%
+	 canvas%
-	check-box%
+	 check-box%
-	choice%
+	 choice%
-	dialog%
+	 dialog%
-	frame%
+	 frame%
-	gauge%
+	 gauge%
-	tab-panel%
+	 tab-panel%
-	group-box-panel%
+	 group-box-panel%
-	list-box%
+	 list-box%
-	editor-canvas%
+	 editor-canvas%
-	message%
+	 message%
-	pane%
+	 pane%
-	horizontal-pane%
+	 horizontal-pane%
-	vertical-pane%
+	 vertical-pane%
-	grow-box-spacer-pane%
+	 grow-box-spacer-pane%
-	panel%
+	 panel%
-	horizontal-panel%
+	 horizontal-panel%
-	vertical-panel%
+	 vertical-panel%
-	radio-box%
+	 radio-box%
-	slider%
+	 slider%
-	text-field%
+	 text-field%
-	window<%>
+	 window<%>
-	area<%>
+	 area<%>
-	top-level-window<%>
+	 top-level-window<%>
-	subarea<%>
+	 subarea<%>
-	subwindow<%>
+	 subwindow<%>
-	area-container<%>
+	 area-container<%>
-	area-container-window<%>
+	 area-container-window<%>
-	canvas<%>
+	 canvas<%>
-	control<%>
+	 control<%>
-	list-control<%>
+	 list-control<%>
-	menu-item<%>
+	 menu-item<%>
-	separator-menu-item%
+	 separator-menu-item%
-	selectable-menu-item<%>
+	 selectable-menu-item<%>
-	labelled-menu-item<%>
+	 labelled-menu-item<%>
-	menu-item%
+	 menu-item%
-	checkable-menu-item%
+	 checkable-menu-item%
-	menu-item-container<%>
+	 menu-item-container<%>
-	menu%
+	 menu%
-	menu-bar%
+	 menu-bar%
-	popup-menu%
+	 popup-menu%
-	get-top-level-windows
+	 get-top-level-windows
-	editor-snip%
+	 editor-snip%
-	editor<%>
+	 editor<%>
-	text%
+	 text%
-	pasteboard%
+	 pasteboard%
-	graphical-read-eval-print-loop
+	 graphical-read-eval-print-loop
-	message-box
+	 message-box
-	message+check-box
+	 message+check-box
-	message-box/custom
+	 message-box/custom
-	message+check-box/custom
+	 message+check-box/custom
-	get-file
+	 get-file
-	get-file-list
+	 get-file-list
-	put-file
+	 put-file
-	get-directory
+	 get-directory
-	get-choices-from-user
+	 get-choices-from-user
-	get-text-from-user
+	 get-text-from-user
-	get-ps-setup-from-user
+	 get-ps-setup-from-user
-	play-sound
+	 play-sound
-	get-display-size
+	 get-display-size
-	get-display-left-top-inset
+	 get-display-left-top-inset
-	get-color-from-user
+	 get-color-from-user
-	get-font-from-user
+	 get-font-from-user
-	append-editor-operation-menu-items
+	 append-editor-operation-menu-items
-	append-editor-font-menu-items
+	 append-editor-font-menu-items
-	get-top-level-focus-window
+	 get-top-level-focus-window
-	get-top-level-edit-target-window
+	 get-top-level-edit-target-window
-	register-collecting-blit
+	 register-collecting-blit
-	unregister-collecting-blit
+	 unregister-collecting-blit
-	bitmap-dc%
+	 bitmap-dc%
-	post-script-dc%
+	 post-script-dc%
-	printer-dc%
+	 printer-dc%
-	current-text-keymap-initializer
+	 current-text-keymap-initializer
-	sleep/yield
+	 sleep/yield
-	get-window-text-extent
+	 get-window-text-extent
-	get-family-builtin-face
+	 get-family-builtin-face
-	send-message-to-window
+	 send-message-to-window
-	the-clipboard
+	 the-clipboard
-	the-editor-wordbreak-map
+	 the-editor-wordbreak-map
-	the-brush-list
+	 the-brush-list
-	the-color-database
+	 the-color-database
-	the-font-name-directory
+	 the-font-name-directory
-	the-pen-list
+	 the-pen-list
-	the-font-list
+	 the-font-list
-	the-style-list
+	 the-style-list
-	timer%
+	 timer%
-	readable-snip<%>
+	 readable-snip<%>
-	open-input-text-editor
+	 open-input-text-editor
-	open-input-graphical-file
+	 open-input-graphical-file
-	text-editor-load-handler
+	 text-editor-load-handler
-	application-about-handler
+	 application-about-handler
-	application-preferences-handler
+	 application-preferences-handler
-	application-quit-handler
+	 application-quit-handler
-	application-file-handler
+	 application-file-handler
-	current-eventspace-has-standard-menus?
+	 current-eventspace-has-standard-menus?
-	current-eventspace-has-menu-root?
+	 current-eventspace-has-menu-root?
-	eventspace-handler-thread
+	 eventspace-handler-thread
-	make-namespace-with-mred
+	 make-namespace-with-mred
-	file-creator-and-type
+	 file-creator-and-type
-	current-ps-afm-file-paths
+	 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)