Split mred/private/wxme/private into two files.

original commit: 70955d55403f6231c22fcfca3767979e25627423

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%)

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")

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"

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"

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

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

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)

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"

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

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"

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"

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)