From bc0427054bda89d03f114f44858dec9ca7ed430d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 7 Jun 2002 03:31:42 +0000
Subject: [PATCH] .

original commit: 313932ace72e315be7b281332a69cbdf2cb66ca4
---
 collects/mzlib/sendevent.ss | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 collects/mzlib/sendevent.ss

diff --git a/collects/mzlib/sendevent.ss b/collects/mzlib/sendevent.ss
new file mode 100644
index 0000000..0138e0d
--- /dev/null
+++ b/collects/mzlib/sendevent.ss
@@ -0,0 +1,16 @@
+
+(module sendevent mzscheme 
+  (require "etc.ss")
+  (provide send-event)
+  
+  (define send-event 
+    (opt-lambda (who class msg [data (void)] [args null])
+      (let ([send-event (with-handlers ([not-break-exn? (lambda (x) #f)])
+			  (dynamic-require '(lib "mred.ss" "mred") 
+					   'send-event))])
+	(if send-event
+	    (send-event who class msg data args)
+	    (raise
+	     (make-exn:misc:unsupported
+	      "send-event: only supported in MrEd"
+	      (current-continuation-marks))))))))