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
|
||||
scheme/file file/convertible
|
||||
"../syntax.ss"
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"private.ss"
|
||||
"style.ss"
|
||||
"load-one.rkt"
|
||||
(only-in "cycle.ss"
|
||||
racket/snip/private/load-one
|
||||
(only-in "cycle.ss"
|
||||
editor-stream-in% editor-stream-out%
|
||||
get-editor-data-class set-get-editor-data-class!)
|
||||
"../wx/common/event.rkt"
|
||||
|
@ -166,4 +166,4 @@
|
|||
|
||||
(set-get-editor-data-class!
|
||||
(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
|
||||
racket/file file/convertible
|
||||
"../syntax.ss"
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"private.ss"
|
||||
"style.ss"
|
||||
racket/snip
|
||||
|
|
|
@ -4,7 +4,7 @@
|
|||
"private.ss"
|
||||
"const.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"standard-snip-admin.rkt"
|
||||
"editor.ss"
|
||||
"editor-admin.ss"
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
"private.ss"
|
||||
"style.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"editor-admin.ss"
|
||||
"stream.ss"
|
||||
"undo.ss"
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
"../syntax.ss"
|
||||
"const.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"private.ss")
|
||||
|
||||
(provide create-mline
|
||||
|
|
|
@ -10,7 +10,7 @@
|
|||
"undo.ss"
|
||||
"style.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"standard-snip-admin.rkt"
|
||||
"keymap.ss"
|
||||
(only-in "cycle.ss" set-pasteboard%!)
|
||||
|
|
|
@ -12,7 +12,7 @@
|
|||
"undo.ss"
|
||||
"style.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags
|
||||
racket/snip/private/snip-flags
|
||||
"standard-snip-admin.rkt"
|
||||
"keymap.ss"
|
||||
(only-in "cycle.ss" set-text%!)
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
(require scheme/class
|
||||
"private.ss"
|
||||
racket/snip
|
||||
racket/snip/snip-flags)
|
||||
racket/snip/private/snip-flags)
|
||||
|
||||
(provide change-record%
|
||||
proc-record%
|
||||
|
|
Loading…
Reference in New Issue
Block a user