14 lines
198 B
Racket
14 lines
198 B
Racket
#lang scheme/base
|
|
(require scheme/class)
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define-local-member-name
|
|
;; clipboard-client%:
|
|
get-client-eventspace
|
|
set-client-eventspace
|
|
|
|
;; cursor%
|
|
get-driver)
|
|
|