snip and editor-data class lists need to be eventspace-specific

svn: r14575

collects/mred/mred.ss

@@ -74,6 +74,11 @@
         (namespace-require 'scheme/class))
       ns))
 
+  (define (make-eventspace)
+    (parameterize ([wx:the-snip-class-list (wx:make-the-snip-class-list)]
+                   [wx:the-editor-data-class-list (wx:make-the-editor-data-class-list)])
+      (wx:make-eventspace)))
+
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
   (define-syntax propagate
@@ -139,7 +144,6 @@
 	     is-color-display?
 	     key-event%
 	     keymap%
-	     make-eventspace
 	     editor-admin%
 	     editor-set-x-selection-mode
 	     editor-snip-editor-admin<%>
@@ -307,6 +311,7 @@
 	   current-eventspace-has-standard-menus?
 	   current-eventspace-has-menu-root?
 	   eventspace-handler-thread
+           make-eventspace
 	   make-gui-namespace
 	   make-gui-empty-namespace
 	   file-creator-and-type

collects/mred/private/wxme/snip.ss

@@ -27,6 +27,11 @@
          get-the-editor-data-class-list
          the-editor-snip-class
 
+         the-snip-class-list ;; parameter
+         make-the-snip-class-list
+         the-editor-data-class-list ;; parameter
+         make-the-editor-data-class-list
+         
          (struct-out snip-class-link)
          (struct-out editor-data-class-link)
 
@@ -1321,9 +1326,10 @@
 (define (make-the-snip-class-list)
   (new standard-snip-class-list%))
 
-(define the-snip-class-list (make-the-snip-class-list))
+(define the-snip-class-list (make-parameter (make-the-snip-class-list)))
+
 (define (get-the-snip-class-list)
-  the-snip-class-list)
+  (the-snip-class-list))
 
 ;; ------------------------------------------------------------
 
@@ -1463,9 +1469,9 @@
 (define (make-the-editor-data-class-list)
   (new editor-data-class-list%))
 
-(define the-editor-data-class-list (make-the-editor-data-class-list))
+(define the-editor-data-class-list (make-parameter (make-the-editor-data-class-list)))
 (define (get-the-editor-data-class-list)
-  the-editor-data-class-list)
+  (the-editor-data-class-list))
 
 ;; ------------------------------------------------------------