Move load-one to racket/snip.
Create private directory for racket/snip. Remove snip dependence on events. original commit: cf3aec6b950fdea1eb970ff329de54d488c15bac
This commit is contained in:
parent
3908571fbb
commit
031ee2a05a
|
@ -3,11 +3,11 @@
|
||||||
(require scheme/class
|
(require scheme/class
|
||||||
scheme/file file/convertible
|
scheme/file file/convertible
|
||||||
"../syntax.ss"
|
"../syntax.ss"
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"private.ss"
|
"private.ss"
|
||||||
"style.ss"
|
"style.ss"
|
||||||
"load-one.rkt"
|
racket/snip/private/load-one
|
||||||
(only-in "cycle.ss"
|
(only-in "cycle.ss"
|
||||||
editor-stream-in% editor-stream-out%
|
editor-stream-in% editor-stream-out%
|
||||||
get-editor-data-class set-get-editor-data-class!)
|
get-editor-data-class set-get-editor-data-class!)
|
||||||
"../wx/common/event.rkt"
|
"../wx/common/event.rkt"
|
||||||
|
@ -166,4 +166,4 @@
|
||||||
|
|
||||||
(set-get-editor-data-class!
|
(set-get-editor-data-class!
|
||||||
(lambda (name)
|
(lambda (name)
|
||||||
(load-one name 'editor-data-class editor-data-class%)))
|
(load-one name 'editor-data-class editor-data-class%)))
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
(require racket/class
|
(require racket/class
|
||||||
racket/file file/convertible
|
racket/file file/convertible
|
||||||
"../syntax.ss"
|
"../syntax.ss"
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"private.ss"
|
"private.ss"
|
||||||
"style.ss"
|
"style.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
"private.ss"
|
"private.ss"
|
||||||
"const.ss"
|
"const.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"standard-snip-admin.rkt"
|
"standard-snip-admin.rkt"
|
||||||
"editor.ss"
|
"editor.ss"
|
||||||
"editor-admin.ss"
|
"editor-admin.ss"
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
"private.ss"
|
"private.ss"
|
||||||
"style.ss"
|
"style.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"editor-admin.ss"
|
"editor-admin.ss"
|
||||||
"stream.ss"
|
"stream.ss"
|
||||||
"undo.ss"
|
"undo.ss"
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
"../syntax.ss"
|
"../syntax.ss"
|
||||||
"const.ss"
|
"const.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"private.ss")
|
"private.ss")
|
||||||
|
|
||||||
(provide create-mline
|
(provide create-mline
|
||||||
|
|
|
@ -10,7 +10,7 @@
|
||||||
"undo.ss"
|
"undo.ss"
|
||||||
"style.ss"
|
"style.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"standard-snip-admin.rkt"
|
"standard-snip-admin.rkt"
|
||||||
"keymap.ss"
|
"keymap.ss"
|
||||||
(only-in "cycle.ss" set-pasteboard%!)
|
(only-in "cycle.ss" set-pasteboard%!)
|
||||||
|
|
|
@ -12,7 +12,7 @@
|
||||||
"undo.ss"
|
"undo.ss"
|
||||||
"style.ss"
|
"style.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags
|
racket/snip/private/snip-flags
|
||||||
"standard-snip-admin.rkt"
|
"standard-snip-admin.rkt"
|
||||||
"keymap.ss"
|
"keymap.ss"
|
||||||
(only-in "cycle.ss" set-text%!)
|
(only-in "cycle.ss" set-text%!)
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
(require scheme/class
|
(require scheme/class
|
||||||
"private.ss"
|
"private.ss"
|
||||||
racket/snip
|
racket/snip
|
||||||
racket/snip/snip-flags)
|
racket/snip/private/snip-flags)
|
||||||
|
|
||||||
(provide change-record%
|
(provide change-record%
|
||||||
proc-record%
|
proc-record%
|
||||||
|
|
Loading…
Reference in New Issue
Block a user