64 lines
1.7 KiB
Racket
64 lines
1.7 KiB
Racket
#lang scheme/base
|
|
(require "../kernel.ss")
|
|
|
|
(define the-clipboard (get-the-clipboard))
|
|
(define the-x-selection-clipboard (get-the-x-selection))
|
|
(define the-brush-list (get-the-brush-list))
|
|
(define the-pen-list (get-the-pen-list))
|
|
(define the-font-list (get-the-font-list))
|
|
(define the-color-database (get-the-color-database))
|
|
(define the-font-name-directory (get-the-font-name-directory))
|
|
|
|
(define (family-symbol? s)
|
|
(memq s '(default decorative roman script
|
|
swiss modern symbol system)))
|
|
(define (style-symbol? s)
|
|
(memq s '(normal italic slant)))
|
|
(define (weight-symbol? s)
|
|
(memq s '(normal bold light)))
|
|
(define (smoothing-symbol? s)
|
|
(memq s '(default smoothed unsmoothed partly-smoothed)))
|
|
(define (size? v) (and (exact-positive-integer? v)
|
|
(byte? v)))
|
|
|
|
(provide 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%
|
|
printer-dc%
|
|
current-eventspace
|
|
clipboard-client%
|
|
clipboard<%>
|
|
the-clipboard
|
|
the-x-selection-clipboard
|
|
get-double-click-threshold
|
|
begin-refresh-sequence
|
|
end-refresh-sequence
|
|
begin-busy-cursor
|
|
end-busy-cursor
|
|
hide-cursor
|
|
run-printout
|
|
current-ps-setup
|
|
family-symbol?
|
|
style-symbol?
|
|
weight-symbol?
|
|
smoothing-symbol?)
|
|
|
|
(define (get-double-click-threshold)
|
|
(get-double-click-time))
|