diff --git a/collects/mred/private/wxme/editor-admin.rkt b/collects/mred/private/wxme/editor-admin.rkt index 285d2d45..d3a701fb 100644 --- a/collects/mred/private/wxme/editor-admin.rkt +++ b/collects/mred/private/wxme/editor-admin.rkt @@ -3,6 +3,7 @@ "../syntax.ss" racket/snip "private.ss" + racket/snip/private/private (only-in "cycle.ss" popup-menu%)) (provide editor-admin%) diff --git a/collects/mred/private/wxme/editor-canvas.rkt b/collects/mred/private/wxme/editor-canvas.rkt index 55542210..a12cbeeb 100644 --- a/collects/mred/private/wxme/editor-canvas.rkt +++ b/collects/mred/private/wxme/editor-canvas.rkt @@ -5,6 +5,7 @@ "editor.ss" "editor-admin.ss" "private.ss" + racket/snip/private/private (only-in "cycle.ss" popup-menu%) (only-in "../helper.ss" queue-window-callback) "wx.ss") diff --git a/collects/mred/private/wxme/editor-data.rkt b/collects/mred/private/wxme/editor-data.rkt index 2505f397..a36182e4 100644 --- a/collects/mred/private/wxme/editor-data.rkt +++ b/collects/mred/private/wxme/editor-data.rkt @@ -5,6 +5,7 @@ "../syntax.ss" racket/snip/private/snip-flags "private.ss" + racket/snip/private/private "style.ss" racket/snip/private/load-one (only-in "cycle.ss" diff --git a/collects/mred/private/wxme/editor-snip-class.rkt b/collects/mred/private/wxme/editor-snip-class.rkt index 5a9c5a70..05aa7c88 100644 --- a/collects/mred/private/wxme/editor-snip-class.rkt +++ b/collects/mred/private/wxme/editor-snip-class.rkt @@ -5,6 +5,7 @@ "../syntax.ss" racket/snip/private/snip-flags "private.ss" + racket/snip/private/private "style.ss" racket/snip (only-in "cycle.ss" diff --git a/collects/mred/private/wxme/editor-snip.rkt b/collects/mred/private/wxme/editor-snip.rkt index 97f435e1..538079b6 100644 --- a/collects/mred/private/wxme/editor-snip.rkt +++ b/collects/mred/private/wxme/editor-snip.rkt @@ -2,6 +2,7 @@ (require scheme/class "../syntax.ss" "private.ss" + racket/snip/private/private "const.ss" racket/snip racket/snip/private/snip-flags diff --git a/collects/mred/private/wxme/editor.rkt b/collects/mred/private/wxme/editor.rkt index 010632c8..74c99bbb 100644 --- a/collects/mred/private/wxme/editor.rkt +++ b/collects/mred/private/wxme/editor.rkt @@ -4,6 +4,7 @@ scheme/file "../syntax.ss" "private.ss" + racket/snip/private/private "style.ss" racket/snip racket/snip/private/snip-flags diff --git a/collects/mred/private/wxme/mline.rkt b/collects/mred/private/wxme/mline.rkt index 2194ec37..f3f2809b 100644 --- a/collects/mred/private/wxme/mline.rkt +++ b/collects/mred/private/wxme/mline.rkt @@ -4,7 +4,8 @@ "const.ss" racket/snip racket/snip/private/snip-flags - "private.ss") + "private.ss" + racket/snip/private/private) (provide create-mline (struct-out mline) diff --git a/collects/mred/private/wxme/pasteboard.rkt b/collects/mred/private/wxme/pasteboard.rkt index bf15a50b..1cb11b08 100644 --- a/collects/mred/private/wxme/pasteboard.rkt +++ b/collects/mred/private/wxme/pasteboard.rkt @@ -5,6 +5,7 @@ "../syntax.ss" "const.ss" "private.ss" + racket/snip/private/private "editor.ss" "editor-data.rkt" "undo.ss" diff --git a/collects/mred/private/wxme/private.rkt b/collects/mred/private/wxme/private.rkt index ddfd3642..852ad3b1 100644 --- a/collects/mred/private/wxme/private.rkt +++ b/collects/mred/private/wxme/private.rkt @@ -3,44 +3,11 @@ (provide (all-defined-out)) -;; snip% and editor% -(define-local-member-name - s-admin) - -;; snip% -(define-local-member-name - s-prev set-s-prev - s-next set-s-next - s-count - s-style set-s-style - s-line set-s-line - s-snipclass set-s-snipclass - s-flags set-s-flags - s-dtext get-s-dtext - s-buffer get-s-buffer - str-w set-str-w - s-set-flags - do-copy-to) - -;; string-snip% -(define-local-member-name - insert-with-offset) - -;; snip-class% -(define-local-member-name - get-s-required? - s-read) - ;; editor-data% (define-local-member-name get-s-dataclass get-s-next) -;; standard-snip-class-list%, editor-data-class-list% -(define-local-member-name - reset-header-flags - find-by-map-position) - ;; editor% (define-local-member-name s-offscreen @@ -111,25 +78,6 @@ do-get-canvas do-scroll-to) -;; editor-stream% -(define-local-member-name - get-sl - get-dl - set-sl - set-dl - add-sl - add-dl - set-s-sll - get-s-sll - get-s-scl - get-s-bdl - get-s-style-count - set-s-style-count - do-reading-version - do-map-position - do-get-header-flag - do-set-header-flag) - ;; editor-stream-in% (define-local-member-name set-s-read-format diff --git a/collects/mred/private/wxme/stream.rkt b/collects/mred/private/wxme/stream.rkt index 6b59c5f2..2828e01c 100644 --- a/collects/mred/private/wxme/stream.rkt +++ b/collects/mred/private/wxme/stream.rkt @@ -2,6 +2,7 @@ (require scheme/class "../syntax.ss" "private.ss" + racket/snip/private/private racket/snip "editor-data.rkt" (only-in "cycle.ss" diff --git a/collects/mred/private/wxme/text.rkt b/collects/mred/private/wxme/text.rkt index 88794f91..03f02bb6 100644 --- a/collects/mred/private/wxme/text.rkt +++ b/collects/mred/private/wxme/text.rkt @@ -7,6 +7,7 @@ "const.ss" "mline.ss" "private.ss" + racket/snip/private/private "editor.ss" "editor-data.rkt" "undo.ss" diff --git a/collects/mred/private/wxme/undo.rkt b/collects/mred/private/wxme/undo.rkt index e76906d7..f8c36258 100644 --- a/collects/mred/private/wxme/undo.rkt +++ b/collects/mred/private/wxme/undo.rkt @@ -1,6 +1,7 @@ #lang scheme/base (require scheme/class "private.ss" + racket/snip/private/private racket/snip racket/snip/private/snip-flags)