50 lines
1.4 KiB
Racket
50 lines
1.4 KiB
Racket
#lang racket/base
|
|
(require "wx/platform.rkt"
|
|
"wx/common/event.rkt"
|
|
"wx/common/timer.rkt"
|
|
"wx/common/queue.rkt"
|
|
"wx/common/clipboard.rkt"
|
|
"wx/common/cursor.rkt"
|
|
"wx/common/gl-config.rkt"
|
|
"wx/common/procs.rkt"
|
|
"wx/common/handlers.rkt"
|
|
racket/class
|
|
racket/draw)
|
|
|
|
(define gl-context<%> (class->interface gl-context%))
|
|
|
|
(define (key-symbol-to-integer k)
|
|
(error 'key-symbol-to-integer "not yet implemented"))
|
|
|
|
(provide (all-from-out "wx/platform.rkt")
|
|
clipboard<%>
|
|
gl-context<%>
|
|
(all-from-out "wx/common/event.rkt"
|
|
"wx/common/timer.rkt"
|
|
"wx/common/clipboard.rkt"
|
|
"wx/common/cursor.rkt"
|
|
"wx/common/gl-config.rkt"
|
|
"wx/common/procs.rkt")
|
|
(all-from-out racket/draw)
|
|
|
|
eventspace?
|
|
current-eventspace
|
|
queue-event
|
|
yield
|
|
make-eventspace
|
|
event-dispatch-handler
|
|
eventspace-shutdown?
|
|
main-eventspace?
|
|
eventspace-handler-thread
|
|
queue-callback
|
|
middle-queue-key
|
|
get-top-level-windows
|
|
begin-busy-cursor
|
|
is-busy?
|
|
end-busy-cursor
|
|
key-symbol-to-integer
|
|
application-file-handler
|
|
application-quit-handler
|
|
application-about-handler
|
|
application-pref-handler)
|