46 lines
1.1 KiB
Racket
46 lines
1.1 KiB
Racket
#lang racket/base
|
|
(require "../kernel.rkt" racket/draw/private/font-syms)
|
|
|
|
(define the-clipboard (get-the-clipboard))
|
|
(define the-x-selection-clipboard (get-the-x-selection))
|
|
|
|
(define (size? v) (and (exact-positive-integer? v)
|
|
(byte? v)))
|
|
|
|
(provide (all-from-out racket/draw/private/font-syms)
|
|
event%
|
|
mouse-event%
|
|
key-event%
|
|
timer%
|
|
canvas%
|
|
bitmap-dc%
|
|
color%
|
|
the-color-database
|
|
pen%
|
|
the-pen-list
|
|
brush%
|
|
the-brush-list
|
|
font%
|
|
the-font-list
|
|
the-font-name-directory
|
|
cursor%
|
|
bitmap%
|
|
dc<%>
|
|
post-script-dc%
|
|
pdf-dc%
|
|
current-eventspace
|
|
clipboard-client%
|
|
clipboard<%>
|
|
the-clipboard
|
|
the-x-selection-clipboard
|
|
get-double-click-threshold
|
|
begin-busy-cursor
|
|
end-busy-cursor
|
|
hide-cursor
|
|
current-ps-setup
|
|
get-highlight-background-color
|
|
get-highlight-text-color)
|
|
|
|
(define (get-double-click-threshold)
|
|
(get-double-click-time))
|