From bf8fb6027f9359c0b0ba8ff318793341cfe019b8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 May 2005 15:48:52 +0000
Subject: [PATCH] .

original commit: e264a9a0aa9593fb71c7158024e622f454082f2e
---
 collects/mred/private/kernel.ss   | 1 +
 collects/mred/private/mrwindow.ss | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 50f7878f..88a83ab1 100644
--- a/collects/mred/private/kernel.ss
+++ b/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
diff --git a/collects/mred/private/mrwindow.ss b/collects/mred/private/mrwindow.ss
index 8f22162a..63b466d9 100644
--- a/collects/mred/private/mrwindow.ss
+++ b/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