30 lines
823 B
Racket
30 lines
823 B
Racket
#lang scheme/base
|
|
|
|
(define-syntax-rule (decl id set-id)
|
|
(begin
|
|
(provide id set-id)
|
|
(define id #f)
|
|
(define (set-id v) (set! id v))))
|
|
|
|
(decl text% set-text%!)
|
|
(decl pasteboard% set-pasteboard%!)
|
|
(decl snip-admin% set-snip-admin%!)
|
|
(decl editor-stream-in% set-editor-stream-in%!)
|
|
(decl editor-stream-out% set-editor-stream-out%!)
|
|
(decl editor-snip% set-editor-snip%!)
|
|
(decl editor-snip-editor-admin% set-editor-snip-editor-admin%!)
|
|
|
|
(decl extended-editor-snip% set-extended-editor-snip%!)
|
|
(decl extended-text% set-extended-text%!)
|
|
(decl extended-pasteboard% set-extended-pasteboard%!)
|
|
|
|
(decl get-snip-class set-get-snip-class!)
|
|
(decl get-editor-data-class set-get-editor-data-class!)
|
|
|
|
(decl editor-get-file set-editor-get-file!)
|
|
(decl editor-put-file set-editor-put-file!)
|
|
|
|
(decl popup-menu% set-popup-menu%!)
|
|
|
|
|