038f579b79
The "racket" directory contains a pared-back version of the repository, roughly. The "pkgs" directory everything else in the repository, but organized into packages. original commit: b2ebb0a28bf8136e75cd98316c22fe54c30eacb2
15 lines
383 B
Racket
15 lines
383 B
Racket
#lang racket/base
|
|
(require racket/gui/dynamic)
|
|
|
|
(provide send-event)
|
|
|
|
(define send-event
|
|
(lambda (who class msg [data (void)] [args null])
|
|
(if (gui-available?)
|
|
((gui-dynamic-require 'send-event) who class msg data args)
|
|
(raise
|
|
(make-exn:fail:unsupported
|
|
"send-event: only supported in GRacket"
|
|
(current-continuation-marks))))))
|
|
|