.

original commit: e264a9a0aa9593fb71c7158024e622f454082f2e

collects/mred/private/kernel.ss

@@ -118,6 +118,7 @@
     on-size
     on-set-focus
     on-kill-focus
+    get-handle
     is-enabled-to-root?
     is-shown-to-root?
     set-phantom-size

collects/mred/private/mrwindow.ss

@@ -110,7 +110,8 @@
       get-label set-label get-plain-label
       get-client-size get-size get-width get-height get-x get-y
       get-cursor set-cursor popup-menu
-      show is-shown? on-superwindow-show refresh))
+      show is-shown? on-superwindow-show refresh
+      get-handle))
 
   (define-keywords window%-keywords [enabled #t])
 
@@ -166,6 +167,8 @@
 				     l)))]
 	[get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
 
+	[get-handle (lambda () (send wx get-handle))]
+
 	[accept-drop-files
 	 (entry-point
 	  (case-lambda